home *** CD-ROM | disk | FTP | other *** search
/ Aminet 48 / Aminet 48 (2002)(GTI - Schatztruhe)[!][Apr 2002].iso / Aminet / comm / tcp / DiCaTool.lha / DiCaTool_V0.902 / DiCaTool < prev    next >
Encoding:
Text File  |  2001-12-12  |  92.4 KB  |  2,112 lines
  1. /*  $VER: DigiCamTool V0.902 beta ,23 Okt 2001 (eisblock)*/
  2.  
  3. IF ~Show("L","Apig.library")        THEN CALL AddLib("apig.library",0,-30,0)
  4. ELSE SAY "Apig.Library ist nicht im Verzeichnis LIBS:"
  5.  
  6. IF ~Show("L","RexxSupport.library") THEN CALL AddLib("rexxsupport.library",0,-30,0)
  7. ELSE SAY "RexxSupport.Library ist nicht im Verzeichnis LIBS:"
  8.  
  9. IF ~Show(L,'locale.library') THEN CALL AddLib('locale.library',0,-30,0)
  10.  
  11. Address Command "Copy C:DigiCam T:"
  12. Address Command "Copy C:JpegTool T:"
  13. Address Command "Echo DiCaTool Logfile >RAM:DiCaTool.log"
  14.  
  15. CALL Set_APIG_Globals()  
  16. CALL LadeCatalogDaten()
  17. CALL _DicaPrefsPrefs()
  18. CALL _LadeCookies()
  19. CALL K03_MakeWebCamSkript()
  20.  
  21. scr          = LOCKPUBSCREEN("Workbench")
  22. scrvinfo     = GETVISUALINFO(scr)
  23. scrfont      = GETVALUE(scr,40,4,'p')
  24. glistpointer = ALLOCVEC(4,MEMF_CLEAR)
  25. conxgad      = CREATECONTEXT(glistpointer)  
  26.  
  27. previousgadget = conxgad     
  28.  
  29. /*----OpenWindowTagList--------------------------*/
  30.  
  31. FreierPort = 0
  32. y=5
  33. IF ShowList(P,"DIGICAMTOOLPORT.1") > 0 THEN
  34.     DO WHILE FreierPort = 0
  35.         DO x = 1 TO y
  36.             IDCMPPort = DIGICAMTOOLPORT.x
  37.             IF ShowList(P,IDCMPPort) = 0 THEN FreierPort = 1
  38.             ELSE y = x+1
  39.         END
  40.     END
  41. ELSE IDCMPPort = DIGICAMTOOLPORT.1
  42. CALL OpenPort(IDCMPPort)
  43. WaitForPort IDCMPPort
  44. DROP FreierPort
  45.  
  46. WinIDCMP    = IDCMP_CLOSEWINDOW,
  47.              +IDCMP_GADGETDOWN,
  48.              +IDCMP_GADGETUP,
  49.              +IDCMP_MOUSEBUTTONS,
  50.              +IDCMP_NEWSIZE
  51.  
  52.  
  53. Titel       = "DigiCamTool V0.902 beta (eisblock) "
  54. TitelZeiger = AllocVec(Length(Titel),MEMF_CLEAR)
  55. CALL Export(TitelZeiger,Titel)                                  
  56.                
  57. tagliste    = allocatetagitems(30)
  58. CALL settagslot(tagliste,0,WA_Left,'n',0)
  59. CALL settagslot(tagliste,1,WA_Top,'n',20)
  60. CALL settagslot(tagliste,2,WA_Width,'n',480)
  61. CALL settagslot(tagliste,3,WA_Height,'n',360)
  62. CALL settagslot(tagliste,4,WA_MinWidth,'n',480)
  63. CALL settagslot(tagliste,5,WA_MinHeight,'n',60)
  64. CALL settagslot(tagliste,6,WA_MaxWidth,'n',480)
  65. CALL settagslot(tagliste,7,WA_MaxHeight,'n',360)
  66. CALL settagslot(tagliste,8,WA_DetailPen,'n',1)
  67. CALL settagslot(tagliste,9,WA_BlockPen,'n',2)
  68. CALL settagslot(tagliste,10,WA_Gadgets,'p',ConXGad)
  69. CALL settagslot(tagliste,11,WA_DragBar,'n',1)
  70. CALL settagslot(tagliste,12,WA_CloseGadget,'n',1)
  71. CALL settagslot(tagliste,13,WA_DepthGadget,'n',1)
  72. CALL settagslot(tagliste,14,WA_SizeGadget,'n',1)
  73. CALL settagslot(tagliste,15,WA_ReportMouse,'n',1)
  74. CALL settagslot(tagliste,16,WA_Borderless,'n',0)
  75. CALL settagslot(tagliste,17,WA_Activate,'n',1)
  76. CALL settagslot(tagliste,18,WA_BackFill,'n',0)
  77. CALL settagslot(tagliste,19,WA_GimmeZeroZero,'n',1)
  78. CALL settagslot(tagliste,20,WA_IDCMP,'n',WinIDCMP)
  79. CALL settagslot(tagliste,21,Wa_SmartRefresh,'n',1)
  80. CALL settagslot(tagliste,22,Wa_Title,'p',TitelZeiger)
  81. CALL settagslot(tagliste,23,Tag_Done,'n',0)
  82.  
  83. w1      = openwindowtaglist(IDCMPPort,Null(),TagListe)
  84. rpw1    = GetWindowRastPort(w1)
  85.           
  86. newgadx = MakeNewGadGet(scrvinfo,scrfont,20,15,80,20,CatVAR01_Bilder,PLACETEXT_IN,1,null())
  87. previousgadget1     = CreateGadget(BUTTON_KIND,previousgadget,newgadx,GTST_MAXCHARS,8,Tag_Done,0)
  88.  
  89. CALL SetNewGadGet(newgadx,scrvinfo,scrfont,100,15,80,20,"Anim",PLACETEXT_IN,2,null())
  90. Previousgadget2     = CREATEGADGET(BUTTON_KIND,previousgadget1,newgadx,TAG_DONE,0)
  91.  
  92. CALL SetNewGadGet(newgadx,scrvinfo,scrfont,180,15,80,20,CatVAR03_Titel,PLACETEXT_IN,3,null())
  93. Previousgadget3     = CREATEGADGET(BUTTON_KIND,previousgadget2,newgadx,TAG_DONE,0)
  94.  
  95. CALL SetNewGadGet(newgadx,scrvinfo,scrfont,260,15,80,20,CatVAR04_Titel,PLACETEXT_IN,4,null())
  96. Previousgadget4     = CREATEGADGET(BUTTON_KIND,previousgadget3,newgadx,TAG_DONE,0)
  97.  
  98. CALL SetNewGadGet(newgadx,scrvinfo,scrfont,340,15,80,20,CatVAR05_Titel,PLACETEXT_IN,5,null())
  99. Previousgadget5     = CREATEGADGET(BUTTON_KIND,previousgadget4,newgadx,TAG_DONE,0)
  100.  
  101. OFFGADGET(previousgadget2,w1,0)
  102.  
  103. CALL GT_RefreshWindow(w1,null())
  104. CALL RefreshGadGets(previousGadget,w1,null())
  105.  
  106. CALL K05_ExistsEinstellung()
  107. CALL _GadGetKartei01()
  108.  
  109.  
  110. /*----- GadGet Abfrage --------------------------*/
  111.                                 
  112. Abfrage:
  113. exitme = 0
  114. do while exitme = 0
  115.      CALL WaitPkt(IDCMPPort)
  116.      DO FOREVER
  117.         msg = GetPkt(IDCMPPort)
  118.         if msg = '0000 0000'x then leave
  119.         msgclass  = getarg(msg,0)
  120.         msgcode   = GetArg(msg,1)
  121.         procode   = msgcode + 1
  122.         msgAddr   = GetArg(msg,8)
  123.         msgSymbID = GetArg(msg,9)
  124.  
  125.        SELECT
  126.            WHEN msgclass = CLOSEWINDOW & VAR_K03_CheckWCOnOff="0" THEN exitme = 1
  127.            WHEN msgclass = GADGETUP THEN
  128.              DO
  129.                 IF msgSymbID = 1 THEN CALL _GadGetKartei01()
  130.                 IF msgSymbID = 2 THEN CALL _GadGetKartei02()
  131.                 IF msgSymbID = 3 THEN CALL _GadGetKartei03()
  132.                 IF msgSymbID = 4 THEN CALL _GadGetKartei04()
  133.                 IF msgSymbID = 5 THEN CALL _GadGetKartei05()
  134.  
  135.                 IF msgSymbID = 101 THEN CALL K01_CyrcleHole()
  136.                 IF msgSymbID = 102 THEN CALL K01_ButtonAktion()
  137.                 IF msgSymbID = 103 THEN CALL K01_StringStartNr()
  138.                 IF msgSymbID = 104 THEN CALL K01_StringEndNr()
  139.                 IF msgSymbID = 105 THEN CALL K01_StringSerNo()
  140.                 IF msgSymbID = 106 THEN CALL K01_ButtonTakePic()
  141.                 IF msgSymbID = 107 THEN CALL K01_ButtonPrePic()
  142.                 IF msgSymbID = 108 THEN CALL K01_ListListe()
  143.                 IF msgSymbID = 110 THEN CALL K01_ButtonNeuLaden()
  144.                 IF msgSymbID = 111 THEN CALL K01_CheckZeigeThrumb()
  145.  
  146.                 IF msgSymbID = 301 THEN CALL K03_CheckWebCam()
  147.                 IF msgSymbID = 302 THEN CALL K03_CheckKopie()
  148.                 IF msgSymbID = 303 THEN CALL K03_OrgKopieren()
  149.                 IF msgSymbID = 304 THEN CALL K03_Blitz()
  150.                 IF msgSymbID = 305 THEN CALL K03_Aufloesung()
  151.                 IF msgSymbID = 307 THEN CALL K03_SerNummer()
  152.                 IF msgSymbID = 308 THEN CALL K03_WarteZeit()
  153.  
  154.                 IF msgSymbID = 407 THEN CALL K04_CyrcleAufLoesung()
  155.                 IF msgSymbID = 408 THEN CALL K04_CyrcleBlitz()
  156.                 IF msgSymbID = 409 THEN CALL K04_CyrcleLinsenModus()
  157.                 IF msgSymbID = 410 THEN CALL K04_CyrcleLCDDatum()
  158.                 IF msgSymbID = 411 THEN CALL K04_CyrcleAperture()
  159.                 IF msgSymbID = 412 THEN CALL K04_CyrcleFarbModus()
  160.                 IF msgSymbID = 413 THEN CALL K04_CyrcleExpMeter()
  161.                 IF msgSymbID = 414 THEN CALL K04_CyrcleBitmap()
  162.                 IF msgSymbID = 415 THEN CALL K04_CyrcleFarbabgleich()
  163.                 IF msgSymbID = 416 THEN CALL K04_StringBelichtzeit()
  164.                 IF msgSymbID = 417 THEN CALL K04_StringCamAusZeit()
  165.                 IF msgSymbID = 418 THEN CALL K04_StringLCDAusZeit()
  166.                 IF msgSymbID = 419 THEN CALL K04_StringLCDHell()
  167.                 IF msgSymbID = 420 THEN CALL K04_StringKontrast()
  168.                 IF msgSymbID = 421 THEN CALL K04_ButtonSpeichern()
  169.                 IF msgSymbID = 422 THEN CALL K04_ButtonLaden()
  170.                 IF msgSymbID = 423 THEN CALL K04_ButtonAbbruch()
  171.  
  172.                 IF msgSymbID = 501 THEN CALL K05_ButtonDevice()
  173.                 IF msgSymbID = 502 THEN CALL K05_StringDevice()
  174.                 IF msgSymbID = 503 THEN CALL K05_CyrcleUnit()
  175.                 IF msgSymbID = 504 THEN CALL K05_CyrcleSpeed()
  176.                 IF msgSymbID = 505 THEN CALL K05_ButtonSpeicherPfad()
  177.                 IF msgSymbID = 506 THEN CALL K05_StringSpeicherPfad()
  178.                 IF msgSymbID = 507 THEN CALL K05_ButtonWCSpeicherPfad()
  179.                 IF msgSymbID = 508 THEN CALL K05_StringWCSpeicherPfad()
  180.                 IF msgSymbID = 509 THEN CALL K05_ButtonSerBilderPfad()
  181.                 IF msgSymbID = 510 THEN CALL K05_StringSerBilderPfad()
  182.                 IF msgSymbID = 511 THEN CALL K05_ButtonOnlineHTML()
  183.                 IF msgSymbID = 512 THEN CALL K05_StringOnlineHTML()
  184.                 IF msgSymbID = 513 THEN CALL K05_ButtonOfflineHTML()
  185.                 IF msgSymbID = 514 THEN CALL K05_StringOfflineHTML()
  186.                 IF msgSymbID = 515 THEN CALL K05_ButtonAnzeigerThrumbs()
  187.                 IF msgSymbID = 516 THEN CALL K05_StringAnzeigerThrumbs()
  188.                 IF msgSymbID = 517 THEN CALL K05_ButtonAnzeigerBilder()
  189.                 IF msgSymbID = 518 THEN CALL K05_StringAnzeigerBilder()
  190.                 IF msgSymbID = 519 THEN CALL K05_ButtonSpeichern()
  191.                 IF msgSymbID = 520 THEN CALL K05_ButtonLaden()
  192.              END
  193.            WHEN msgclass = GADGETDOWN THEN
  194.              DO
  195.                 IF msgAddr = previousgadget6 THEN SAY "MXGadGet()"
  196.              END
  197.            WHEN msgclass = MOUSEMOVE THEN
  198.              DO
  199.                 IF msgAddr = previousgadget306 THEN CALL K03_Qualli()
  200.                 IF msgAddr = previousgadget309 THEN CALL K03_BelichtZeit()
  201.              END
  202.            WHEN msgclass = MENUPICK & msgcode ~= MENUNULL THEN
  203.              DO
  204.                 say "MenuBearbeten()"
  205.              END
  206.            WHEN msgclass = NEWSIZE THEN
  207.              DO
  208.                 CALL _RefrashAll()
  209.              END
  210.            OTHERWISE NOP
  211.        END
  212.         CALL Reply(msg,0) 
  213.      END
  214. END
  215.  
  216. Ende:
  217. CALL closewindow(w1)
  218. CALL FreeVec(TitelZeiger)
  219. CALL Freetagitems(TagListe)
  220. CALL ClosePort(IDCMPPort)       
  221.  
  222. CALL FREEVISUALINFO(scrvinfo)
  223. CALL FREEVEC(glistpointer)   
  224. CALL FREEGADGETS(conxgad)
  225. CALL FREETHIS(newgadx)      
  226. Address Command "delete T:#?.jpg T:Cam#?.txt T:WebCamSkript.rexx T:DigiCam T:JpegTool >NIL:"
  227. EXIT
  228.  
  229. Iconify:
  230.  
  231. RETURN
  232.  
  233.  
  234.  
  235. /*Refresh kartei 1*/
  236.  
  237. _GadGetKartei01:
  238.     IF AktiveKartei = 1 THEN FREEGADGETS(previousgadget101)
  239.     IF AktiveKartei = 2 THEN FREEGADGETS(previousgadget201)
  240.     IF AktiveKartei = 3 THEN FREEGADGETS(previousgadget301)
  241.     IF AktiveKartei = 4 THEN FREEGADGETS(previousgadget401)
  242.     IF AktiveKartei = 5 THEN FREEGADGETS(previousgadget501)
  243.  
  244.     AktiveKartei=1
  245.     SETCLIP('VAR_AktiveKartei','1')
  246.     CLEARSCREEN(rpw1,11,11)
  247.  
  248.     mylabels =Make_Labels(3,CatVAR01_Cyrcle01,CatVAR01_Cyrcle02,CatVAR01_Cyrcle03)
  249.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,50,150,20,"",PLACETEXT_RIGHT,101,null())
  250.     previousgadget101     = CreateGadget(CYCLE_KIND,previousgadget5,newgadx,GTCY_LABELS,mylabels,GTCY_Active,0,TAG_DONE,0)
  251.  
  252.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,70,50,20,CatVAR01_Start,PLACETEXT_IN,102,null())
  253.     Previousgadget102     = CREATEGADGET(BUTTON_KIND,previousgadget101,newgadx,TAG_DONE,0)
  254.  
  255.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,70,70,40,20,"-",PLACETEXT_LEFT,103,null())
  256.     Previousgadget103     = CREATEGADGET(INTEGER_KIND,previousgadget102,newgadx,GTIN_MaxChars,4,GTIN_NUMBER,1,TAG_DONE,0)
  257.  
  258.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,130,70,40,20,"-",PLACETEXT_LEFT,104,null())
  259.     Previousgadget104     = CREATEGADGET(INTEGER_KIND,previousgadget103,newgadx,GTIN_MaxChars,4,GTIN_NUMBER,1,TAG_DONE,0)
  260.  
  261.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,270,50,70,20,CatVAR01_SerNo,PLACETEXT_LEFT,105,null())
  262.     Previousgadget105     = CREATEGADGET(INTEGER_KIND,previousgadget104,newgadx,GTIN_MaxChars,4,TAG_DONE,0)
  263.  
  264.                                                   
  265.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,50,80,20,CatVAR01_MachBild,PLACETEXT_IN,106,null())
  266.     Previousgadget106     = CREATEGADGET(BUTTON_KIND,previousgadget105,newgadx,TAG_DONE,0)
  267.  
  268.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,70,80,20,CatVAR01_ZeigeVorschau,PLACETEXT_IN,107,null())
  269.     Previousgadget107     = CREATEGADGET(BUTTON_KIND,previousgadget106,newgadx,TAG_DONE,0)
  270.  
  271.     Kartei_01_MyList = _Kartei_01_list(K01Zeilenanzahl)
  272.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,100,420,200,"",PLACETEXT_ABOVE,108,null())
  273.     previousgadget108     = CreateGadget(LISTVIEW_KIND,previousgadget107,newgadx,LAYOUTA_SPACING,0,GTLV_Labels,Kartei_01_MyList,GTLV_ScrollWidth,15,Tag_Done,0)
  274.  
  275.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,70,300,270,20,CatVAR01_Status,PLACETEXT_LEFT,109,null())
  276.     previousgadget109     = CreateGadget(TEXT_KIND,previousgadget108,newgadx,GTTX_BORDER,1,Tag_Done,0)
  277.  
  278.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,300,80,20,CatVAR01_Neuladen,PLACETEXT_IN,110,null())
  279.     previousgadget110     = CreateGadget(BUTTON_KIND,previousgadget109,newgadx,Tag_Done,0)
  280.  
  281.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,270,70,40,40,CatVAR01_ZeigeThrumb,PLACETEXT_LEFT,111,null())
  282.     previousgadget111     = CreateGadget(CHECKBOX_KIND,previousgadget110,newgadx,GTCB_CHECKED,0,Tag_Done,0)
  283.  
  284.     CALL _ZeichneNeuKartei01()
  285. Return
  286.  
  287. _ZeichneNeuKartei01:
  288.     CALL GT_RefreshWindow(w1,null())
  289.     CALL RefreshGadGets(previousGadget,w1,null())
  290.  
  291.     CALL SetAPen(rpw1,2)
  292.     CALL Move(rpw1,10,325)  /*breite höhe*/
  293.     CALL Draw(rpw1,10,34)
  294.     CALL Draw(rpw1,20,34)
  295.  
  296.     CALL SetAPen(rpw1,0)
  297.     CALL Draw(rpw1,100,34)
  298.  
  299.     CALL SetAPen(rpw1,2)
  300.     CALL Draw(rpw1,450,34)
  301.  
  302.     CALL SetAPen(rpw1,1)
  303.     CALL Draw(rpw1,450,325)
  304.     CALL Draw(rpw1,10,325)
  305.  
  306.     VAR_RandomNummer = RANDOM(1,_MaxCookie)
  307.     CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  308. Return
  309.  
  310. /*    GadVerarbeitung Kartei 1 */
  311.  
  312. K01_CyrcleHole:
  313.     IF msgcode = 0 then VAR_K01_Holen = "GF"
  314.     IF msgcode = 1 then VAR_K01_Holen = "GT"
  315.     IF msgcode = 2 then VAR_K01_Holen = "ERASE"
  316. RETURN
  317.  
  318. K01_ButtonAktion:
  319.     IF VAR_01_ListeGeladen = "1" THEN
  320.         DO
  321.         OFFGADGET(previousgadget2,w1,0)
  322.         OFFGADGET(previousgadget3,w1,0)
  323.         OFFGADGET(previousgadget4,w1,0)
  324.         OFFGADGET(previousgadget5,w1,0)
  325.         CALL _ZeichneNeuKartei01()
  326.  
  327.         CALL K01_StringStartNr()
  328.         CALL K01_StringEndNr()
  329.         CALL K01_StringSerNo()
  330.  
  331.         IF VAR_K01_Holen = "GF" THEN DO
  332.             DO x = VAR_K01_StartBild TO VAR_K01_ENDBild
  333.                 CALL K01_StatusZeile(CatVAR01_Dialog_01 x "("VAR_K01_StartBild "-" VAR_K01_ENDBild")")
  334.                 Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed VAR_K05_SpeicherPfad "GF=" x ">NIL:"
  335.                 VAR_RandomNummer = RANDOM(1,_MaxCookie)
  336.                 CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  337.             END
  338.         END
  339.         IF VAR_K01_Holen = "GT" THEN DO
  340.             DO x = VAR_K01_StartBild TO VAR_K01_ENDBild
  341.                 CALL K01_StatusZeile(CatVAR01_Dialog_02 x "("VAR_K01_StartBild "-" VAR_K01_ENDBild")")
  342.                 Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed VAR_K05_SpeicherPfad "GT=" VAR_K01_StartBild || "-" || VAR_K01_EndBild ">NIL:"
  343.                 VAR_RandomNummer = RANDOM(1,_MaxCookie)
  344.                 CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  345.             END
  346.         END
  347.  
  348.         _StartNummer = 0
  349.         _StartNummer = VAR_K01_SerNr
  350.  
  351.         IF VAR_K01_Holen ~= "ERASE" THEN
  352.             DO x=1 to VAR_K01_ENDBild
  353.                 _StartNummer = _StartNummer + 1
  354.                 Call K01_ReName(K01Zeile.x)
  355.             END
  356.         ELSE DO
  357.             CALL K01_StatusZeile(CatVAR01_Dialog_03 "("VAR_K01_StartBild "-" VAR_K01_ENDBild")")
  358.             Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "ERF" VAR_K01_StartBild || "-" || VAR_K01_ENDBild ">NIL:"
  359.             VAR_RandomNummer = RANDOM(1,_MaxCookie)
  360.             CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  361.             CALL K01_ButtonNeuLaden()
  362.         END
  363.  
  364.       /*ONGADGET(previousgadget2,w1,0)*/
  365.         ONGADGET(previousgadget3,w1,0)
  366.         ONGADGET(previousgadget4,w1,0)
  367.         ONGADGET(previousgadget5,w1,0)
  368.         CALL _ZeichneNeuKartei01()
  369.     END
  370.     ELSE DO
  371.         CALL K01_StatusZeile("erst Bilderliste einladen")
  372.     END
  373. RETURN
  374.  
  375. K01_ReName:
  376.     Parse arg PIC_NUM PIC_SIZE THUMBSIZE PIC_AUDIO PIC_R PIC_P PIC_DAY PIC_MON PIC_DAYNUM PIC_TIME PIC_YEAR PIC_REST
  377.     PIC_TIME = delstr(delstr(PIC_TIME,3,1),5,1)
  378.     PIC_YEAR = delstr(PIC_YEAR,5,1)
  379.  
  380.     PosPfad = LastPos("/",VAR_K05_SpeicherPfad)
  381.     IF PosPfad = 0 THEN
  382.         DO
  383.             PosPfad = LastPos(":",VAR_K05_SpeicherPfad)
  384.             VAR_K01_SPfad    = DelStr(VAR_K05_SpeicherPfad,PosPfad+1)
  385.         END
  386.     ELSE VAR_K01_SPfad    = DelStr(VAR_K05_SpeicherPfad,PosPfad+1)
  387.  
  388.  
  389.     IF VAR_K01_Holen = "GF" THEN DO
  390.         Address Command "rename" VAR_K05_SpeicherPfad"_"PIC_NUM||".jpg" VAR_K01_SPfad || RIGHT(_StartNummer,4,0)"_"PIC_TIME"_"PIC_DAYNUM"-"PIC_MON"-"PIC_YEAR||".jpg" ">NIL:"
  391.     END
  392.     IF VAR_K01_Holen = "GT" THEN DO
  393.         Address Command "rename" VAR_K05_SpeicherPfad"_"PIC_NUM||"th.jpg" VAR_K01_SPfad || RIGHT(_StartNummer,4,0)"_"PIC_TIME"_"PIC_DAYNUM"-"PIC_MON"-"PIC_YEAR||"th.jpg" ">NIL:"
  394.     END
  395. RETURN
  396.  
  397. K01_StringStartNr:
  398.     VAR_K01_StartBild = GetStrGad(w1,103)
  399.     CALL K01_StatusZeile(CatVAR01_Dialog_04 VAR_K01_StartBild)
  400. RETURN
  401.  
  402. K01_StringEndNr:
  403.     VAR_K01_ENDBild = GetStrGad(w1,104)
  404.     CALL K01_StatusZeile(CatVAR01_Dialog_05 VAR_K01_ENDBild)
  405. RETURN
  406.  
  407. K01_StringSerNo:
  408.     VAR_K01_SerNr = GetStrGad(w1,105)
  409.     CALL K01_StatusZeile(CatVAR01_Dialog_06 VAR_K01_SerNr)
  410.     VAR_K01_SerNr = VAR_K01_SerNr - 1
  411. RETURN
  412.  
  413. K01_ButtonTakePic:
  414.     CALL K01_StatusZeile(CatVAR01_Dialog_07)
  415.     Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "T:" "TP gt=1" ">NIL:"
  416.     VAR_RandomNummer = RANDOM(1,_MaxCookie)
  417.     CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  418.     CALL K01_ButtonNeuLaden()
  419. RETURN
  420.  
  421. K01_ButtonPrePic:
  422.     CALL K01_StatusZeile(CatVAR01_Dialog_08)
  423.     Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "T:" "MP" ">NIL:"
  424.     Address Command "run" VAR_K05_AnzeigerThrumb "T:" || "_p.jpg" ">NIL:"
  425.     VAR_RandomNummer = RANDOM(1,_MaxCookie)
  426.     CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  427. RETURN
  428.  
  429. K01_ListListe:
  430.     ListViewZeile = msgcode+1
  431.     IF VAR_K01_ZeigeThrumb="1" THEN DO
  432.         CALL K01_StatusZeile(CatVAR01_Dialog_09 ListViewZeile)
  433.         Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "GT=" ListViewZeile "T:DCamBild" ">NIL:"
  434.         Address Command "run" VAR_K05_AnzeigerThrumb "T:DCamBild_"ListViewZeile"th.jpg" ">NIL:"
  435.         VAR_RandomNummer = RANDOM(1,_MaxCookie)
  436.         CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  437.     END
  438.     ELSE DO
  439.         CALL K01_StatusZeile(CatVAR01_Dialog_10 ListViewZeile)
  440.         Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "GF=" ListViewZeile "T:DCamBild" ">NIL:"
  441.         Address Command "run" VAR_K05_AnzeigerBilder "T:DCamBild_"ListViewZeile".jpg" ">NIL:"
  442.         VAR_RandomNummer = RANDOM(1,_MaxCookie)
  443.         CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  444.     END
  445. RETURN
  446.  
  447. K01_ButtonNeuLaden: 
  448.     VAR_01_ListeGeladen = "1"
  449.     CALL K01_StatusZeile(CatVAR01_Dialog_11)
  450.     Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "DIR >T:CamDir.txt"
  451.     IF Open(CamDirFile,"T:CamDir.txt",r) THEN
  452.         DO
  453.             NILK01Zeilenanzahl=0
  454.                 DO UNTIL NILK01Zeile.NILK01Zeilenanzahl2 = "Still Images"
  455.                     NILK01Zeile.NILK01Zeilenanzahl=ReadLn(CamDirFile)
  456.                     NILK01Zeilenanzahl2       = NILK01Zeilenanzahl
  457.                     NILK01Zeilenanzahl        = NILK01Zeilenanzahl+1
  458.                 END
  459.  
  460.             K01Zeilenanzahl=0
  461.                 DO UNTIL K01Zeile.K01Zeilenanzahl2 = ""
  462.                     K01Zeile.K01Zeilenanzahl  = ReadLn(CamDirFile)
  463.                     K01Zeilenanzahl2          = K01Zeilenanzahl
  464.                     K01Zeilenanzahl           = K01Zeilenanzahl+1
  465.                 END
  466.         END
  467.     Close(CamDirFile)
  468.  
  469.     CALL FREE_EXEC_LIST(Kartei_01_mylist,,1)
  470.     Kartei_01_mylist = _Kartei_01_list(K01Zeilenanzahl)
  471.     Gt_SetGadgetAttrs(previousgadget108,w1,Null(),GTLV_LABELS,Kartei_01_mylist,LAYOUTA_SPACING,1,TAG_DONE,0)
  472.     Gt_SetGadgetAttrs(previousgadget104,w1,Null(),GTIN_NUMBER,K01Zeilenanzahl-2,TAG_DONE,0)
  473.     VAR_RandomNummer = RANDOM(1,_MaxCookie)
  474.     CALL K01_StatusZeile(VAR_RandomCookie.VAR_RandomNummer)
  475. RETURN
  476.  
  477. K01_CheckZeigeThrumb:
  478.     IF msgcode = 0 THEN VAR_K01_ZeigeThrumb="0"
  479.     IF msgcode = 1 THEN VAR_K01_ZeigeThrumb="1"
  480. RETURN
  481.  
  482. K01_StatusZeile:
  483.     Parse ARG VAR_K01_StatusText
  484.     CALL Gt_SetGadgetAttrs(previousgadget109,w1,Null(),GTTX_TEXT,VAR_K01_StatusText,Tag_Done,0)
  485.     DROP VAR_K01_StatusText
  486. RETURN
  487.  
  488. K01_GadGetInti:
  489.     /*
  490.     CALL Gt_SetGadgetAttrs(previousgadget201,w1,Null(),GTCB_CHECKED,VAR_K02_CheckWCOnOff,Tag_Done,0)
  491.     CALL Gt_SetGadgetAttrs(previousgadget202,w1,Null(),GTCB_CHECKED,VAR_K02_CheckKopieOnOff,Tag_Done,0)
  492.     */
  493. RETURN
  494.  
  495.  
  496. _GadGetKartei02:
  497.     IF AktiveKartei = 1 THEN FREEGADGETS(previousgadget101)
  498.     IF AktiveKartei = 2 THEN FREEGADGETS(previousgadget201)
  499.     IF AktiveKartei = 3 THEN FREEGADGETS(previousgadget301)
  500.     IF AktiveKartei = 4 THEN FREEGADGETS(previousgadget401)
  501.     IF AktiveKartei = 5 THEN FREEGADGETS(previousgadget501)
  502.  
  503.     AktiveKartei=2
  504.     SETCLIP('VAR_AktiveKartei','2')
  505.     CLEARSCREEN(rpw1,11,11)                                  
  506.  
  507.     mylabels =Make_Labels(3,CatVAR01_Cyrcle01,CatVAR01_Cyrcle02,CatVAR01_Cyrcle03)
  508.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,50,150,20,"",PLACETEXT_RIGHT,201,null())
  509.     previousgadget201     = CreateGadget(CYCLE_KIND,previousgadget5,newgadx,GTCY_LABELS,mylabels,GTCY_Active,0,TAG_DONE,0)
  510.  
  511.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,70,50,20,CatVAR01_Start,PLACETEXT_IN,202,null())
  512.     Previousgadget202     = CREATEGADGET(BUTTON_KIND,previousgadget201,newgadx,TAG_DONE,0)
  513.  
  514.     CALL _ZeichneNeuKartei02()
  515.  
  516. Return
  517.  
  518. _ZeichneNeuKartei02:
  519.     CALL GT_RefreshWindow(w1,null())
  520.     CALL RefreshGadGets(previousGadget,w1,null())
  521.  
  522.     CALL SetAPen(rpw1,2)
  523.     CALL Move(rpw1,10,325)  /*breite höhe*/
  524.     CALL Draw(rpw1,10,34)
  525.     CALL Draw(rpw1,100,34)
  526.  
  527.     CALL SetAPen(rpw1,0)
  528.     CALL Draw(rpw1,180,34)
  529.  
  530.     CALL SetAPen(rpw1,2)
  531.     CALL Draw(rpw1,450,34)
  532.  
  533.     CALL SetAPen(rpw1,1)
  534.     CALL Draw(rpw1,450,325)
  535.     CALL Draw(rpw1,10,325)
  536.  
  537. Return
  538.  
  539.  
  540.  
  541. /*Refresh kartei 3*/
  542.  
  543. _GadGetKartei03:
  544.     IF AktiveKartei = 1 THEN FREEGADGETS(previousgadget101)
  545.     IF AktiveKartei = 2 THEN FREEGADGETS(previousgadget201)
  546.     IF AktiveKartei = 3 THEN FREEGADGETS(previousgadget301)
  547.     IF AktiveKartei = 4 THEN FREEGADGETS(previousgadget401)
  548.     IF AktiveKartei = 5 THEN FREEGADGETS(previousgadget501)
  549.  
  550.     AktiveKartei=3
  551.     SETCLIP('VAR_AktiveKartei','3')
  552.     CLEARSCREEN(rpw1,11,11)
  553.  
  554.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,130,60,40,40,CatVAR03_CamAn,PLACETEXT_LEFT,301,null())
  555.     previousgadget301     = CreateGadget(CHECKBOX_KIND,previousgadget5,newgadx,Tag_Done,0)
  556.                                                       
  557.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,130,80,40,40,CatVAR03_UmKAn,PLACETEXT_LEFT,302,null())
  558.     previousgadget302     = CreateGadget(CHECKBOX_KIND,previousgadget301,newgadx,Tag_Done,0)
  559.  
  560.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,130,100,40,40,CatVAR03_OrgKopie,PLACETEXT_LEFT,303,null())
  561.     previousgadget303     = CreateGadget(CHECKBOX_KIND,previousgadget302,newgadx,Tag_Done,0)
  562.  
  563.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,130,120,40,40,CatVAR03_Blitz,PLACETEXT_LEFT,304,null())
  564.     previousgadget304     = CreateGadget(CHECKBOX_KIND,previousgadget303,newgadx,Tag_Done,0)
  565.                                          
  566.     mylabels =Make_Labels(4,"160x120 fast","640x480","320x240","160x120")
  567.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,260,60,120,20,CatVAR03_Aufloesung,PLACETEXT_LEFT,305,null())
  568.     previousgadget305     = CreateGadget(CYCLE_KIND,previousgadget304,newgadx,GTCY_LABELS,mylabels,GTCY_Active,0,TAG_DONE,0)
  569.  
  570.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,260,80,120,20,CatVAR03_Qualli,PLACETEXT_LEFT,306,null())
  571.     previousgadget306     = CreateGadget(SLIDER_KIND,previousgadget305,newgadx,GTSL_MIN,1,GTSL_Max,100,GTSL_Level,75,GTSL_MAXLEVELLEN,90,GTSL_LEVELFORMAT,"%2ld",Tag_Done,0)
  572.  
  573.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,260,100,120,20,CatVAR03_SerNr,PLACETEXT_LEFT,307,null())
  574.     Previousgadget307     = CREATEGADGET(INTEGER_KIND,previousgadget306,newgadx,GTIN_MaxChars,4,GTIN_NUMBER,0,TAG_DONE,0)
  575.  
  576.     /*
  577.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,230,110,120,20,CatVAR03_WarteZeit,PLACETEXT_LEFT,308,null())
  578.     Previousgadget308     = CREATEGADGET(INTEGER_KIND,previousgadget307,newgadx,GTIN_MaxChars,5,GTIN_NUMBER,10,TAG_DONE,0)
  579.     */
  580.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,260,120,120,20,CatVAR03_Belichtung,PLACETEXT_LEFT,309,null())
  581.     previousgadget309     = CreateGadget(SLIDER_KIND,previousgadget307,newgadx,GTSL_MIN,0,GTSL_Max,10,GTSL_Level,0,GTSL_MAXLEVELLEN,5,GTSL_LEVELFORMAT,"%2ld",Tag_Done,0)
  582.  
  583.  
  584.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,70,300,270,20,CatVAR03_Status,PLACETEXT_LEFT,320,Null())
  585.     Previousgadget320    = CREATEGADGET(TEXT_KIND,Previousgadget309,newgadx,GTtx_border,1,Tag_Done,0)
  586.  
  587.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,300,80,20,"",PLACETEXT_IN,321,Null())
  588.     Previousgadget321    = CREATEGADGET(TEXT_KIND,Previousgadget320,newgadx,GTtx_border,1,Tag_Done,0)
  589.  
  590.     CALL _ZeichneNeuKartei03()
  591. Return
  592.  
  593. _ZeichneNeuKartei03:
  594.     CALL K03_GadGetInti()
  595.     CALL GT_RefreshWindow(w1,null())
  596.     CALL RefreshGadGets(previousGadget,w1,null())
  597.  
  598.     CALL SetAPen(rpw1,2)
  599.     CALL Move(rpw1,10,325)  /*breite höhe*/
  600.     CALL Draw(rpw1,10,34)
  601.     CALL Draw(rpw1,180,34)
  602.  
  603.     CALL SetAPen(rpw1,0)
  604.     CALL Draw(rpw1,260,34)
  605.  
  606.     CALL SetAPen(rpw1,2)
  607.     CALL Draw(rpw1,450,34)
  608.  
  609.     CALL SetAPen(rpw1,1)
  610.     CALL Draw(rpw1,450,325)
  611.     CALL Draw(rpw1,10,325)
  612.  
  613.     CALL SetAPen(rpw1,1) CALL Move(rpw1,15,145) CALL Draw(rpw1,15,50) CALL Draw(rpw1,445,50)
  614.     CALL SetAPen(rpw1,2)                        CALL Draw(rpw1,445,145) CALL Draw(rpw1,15,145)
  615.     CALL PITEXT(rpw1,150,45,"",2,0,JAM2,scrfont)
  616.   /*
  617.     OFFGADGET(previousgadget307,w1,0)
  618.     OFFGADGET(previousgadget308,w1,0)
  619.     OFFGADGET(previousgadget309,w1,0)
  620.  
  621.     SETCLIP('previousGadget',previousGadget)
  622.     SETCLIP('Previousgadget321',Previousgadget321)
  623.   */
  624. RETURN
  625.                   
  626. K03_CheckWebCam:
  627.     IF msgcode = 0 THEN                 
  628.         DO
  629.             VAR_K03_ZiehlPfad = _ZerlegePfad(VAR_K05_OfflineHTML)
  630.             Address Command "copy" VAR_K05_OfflineHTML VAR_K03_ZiehlPfad||"index.html"
  631.  
  632.             VAR_K03_CheckWCOnOff="0"
  633.             SETCLIP('VAR_K03_CheckWCOnOff','0')
  634.             CALL K03_StatusZeile(CatVAR03_Dialog01)
  635.             WCSabfrage = 0
  636.             DO WHILE WCSabfrage = 0
  637.                 IF ShowList(P,"WEBCAMSKRIPTPORT.1") = 0 THEN
  638.                     DO
  639.                         WCSabfrage = 1
  640.                         ONGADGET(previousgadget1,w1,0)
  641.                       /*ONGADGET(previousgadget2,w1,0)*/
  642.                         ONGADGET(previousgadget4,w1,0)
  643.                         ONGADGET(previousgadget5,w1,0)
  644.                         ONGADGET(previousgadget307,w1,0)
  645.                         CALL _ZeichneNeuKartei03()
  646.                         VAR_K03_SerNummer       = GETCLIP("VAR_K03_SerNummer")
  647.                         CALL K03_GadGetInti()
  648.                         Address Command "copy HTTP:WebCam/CamOff.jpg HTTP:WebCam/Cam.jpg"
  649.                         CALL K03_StatusZeile(CatVAR03_Dialog02)
  650.                     END
  651.             END
  652.         END
  653.     IF msgcode = 1 THEN
  654.         DO
  655.             VAR_K03_ZiehlPfad = _ZerlegePfad(VAR_K05_OfflineHTML)
  656.             Address Command "copy" VAR_K05_OnlineHTML VAR_K03_ZiehlPfad||"index.html"
  657.  
  658.             VAR_K03_CheckWCOnOff="1"
  659.             SETCLIP('VAR_K03_CheckWCOnOff','1')
  660.             OFFGADGET(previousgadget1,w1,0)
  661.             OFFGADGET(previousgadget2,w1,0)
  662.             OFFGADGET(previousgadget4,w1,0)
  663.             OFFGADGET(previousgadget5,w1,0)
  664.             CALL _ZeichneNeuKartei03()
  665.  
  666.             SETCLIP('w1',w1)
  667.             SETCLIP('rpw1',rpw1)
  668.             SETCLIP('scrfont',scrfont)
  669.             SETCLIP('VAR_K03_CheckWCOnOff',VAR_K03_CheckWCOnOff)
  670.             SETCLIP('VAR_K03_CheckKopieOnOff',VAR_K03_CheckKopieOnOff)
  671.             SETCLIP('VAR_K03_Blitz',VAR_K03_Blitz)
  672.             SETCLIP('VAR_K03_Quallitaet',VAR_K03_Quallitaet)
  673.             SETCLIP('VAR_K03_Aufloesung',VAR_K03_Aufloesung)
  674.             SETCLIP('VAR_K03_WarteZeit',VAR_K03_WarteZeit)
  675.             SETCLIP('VAR_K03_BelichtZeit',VAR_K03_BelichtZeit)
  676.             SETCLIP('VAR_K03_OrgKopieren',VAR_K03_OrgKopieren)
  677.  
  678.             IF ShowList(P,"WEBCAMSKRIPTPORT.1") = 0 THEN
  679.                 DO
  680.                     ADDRESS Command "run rx T:WebCamSkript.rexx"
  681.                     CALL K03_StatusZeile(CatVAR03_Dialog03)
  682.                     OFFGADGET(previousgadget307,w1,0)
  683.                 END
  684.             ELSE CALL K03_StatusZeile(CatVAR03_Dialog04)
  685.         END
  686. RETURN
  687.  
  688. K03_CheckKopie:
  689.     IF msgcode = 0 THEN
  690.         DO
  691.             VAR_K03_CheckKopieOnOff="0"
  692.             SETCLIP('VAR_K03_CheckKopieOnOff','0')
  693.             OFFGADGET(previousgadget307,w1,0)
  694.  
  695.             CALL K03_OrgKopieren()
  696.             CALL Gt_SetGadgetAttrs(previousgadget303,w1,Null(),GTCB_CHECKED,0,Tag_Done,0)
  697.             VAR_K03_OrgKopieren="0"
  698.             SETCLIP('VAR_K03_OrgKopieren','0')
  699.  
  700.             CALL K03_StatusZeile(CatVAR03_Dialog05)
  701.         END
  702.     IF msgcode = 1 THEN
  703.         DO
  704.             VAR_K03_CheckKopieOnOff="1"
  705.             SETCLIP('VAR_K03_CheckKopieOnOff','1')
  706.             IF VAR_K03_CheckWCOnOff=0 THEN  ONGADGET(previousgadget307,w1,0)
  707.             CALL K03_StatusZeile(CatVAR03_Dialog06)
  708.         END
  709. RETURN
  710.  
  711. K03_OrgKopieren:
  712.     IF msgcode = 0 THEN
  713.         DO
  714.             VAR_K03_OrgKopieren="0"
  715.             SETCLIP('VAR_K03_OrgKopieren','0')
  716.             CALL K03_StatusZeile(CatVAR03_Dialog07)
  717.         END
  718.     IF msgcode = 1 THEN
  719.         DO
  720.             VAR_K03_OrgKopieren="1"
  721.             SETCLIP('VAR_K03_OrgKopieren','1')
  722.  
  723.             CALL K03_CheckKopie()
  724.             CALL Gt_SetGadgetAttrs(previousgadget302,w1,Null(),GTCB_CHECKED,1,Tag_Done,0)
  725.             VAR_K03_CheckKopieOnOff="1"
  726.             SETCLIP('VAR_K03_CheckKopieOnOff','1')
  727.  
  728.             CALL K03_StatusZeile(CatVAR03_Dialog08)
  729.         END
  730. RETURN
  731.  
  732. K03_Blitz:
  733.     IF msgcode = 0 THEN
  734.         DO
  735.             VAR_K03_Blitz="0"
  736.             SETCLIP('VAR_K03_Blitz','0')
  737.             CALL K03_StatusZeile(CatVAR03_Dialog09)
  738.         END
  739.     IF msgcode = 1 THEN
  740.         DO
  741.             VAR_K03_Blitz="1"
  742.             SETCLIP('VAR_K03_Blitz','1')
  743.             CALL K03_StatusZeile(CatVAR03_Dialog10)
  744.         END
  745. RETURN
  746.  
  747. K03_Aufloesung:
  748.     IF msgcode = 0 THEN
  749.         DO
  750.             VAR_K03_Aufloesung=0
  751.             SETCLIP('VAR_K03_Aufloesung','0')
  752.             CALL K03_StatusZeile(CatVAR03_Dialog11)
  753.         END
  754.     IF msgcode = 1 THEN
  755.         DO
  756.             VAR_K03_Aufloesung=1
  757.             SETCLIP('VAR_K03_Aufloesung','1')
  758.             CALL K03_StatusZeile(CatVAR03_Dialog12)
  759.         END
  760.     IF msgcode = 2 THEN
  761.         DO
  762.             VAR_K03_Aufloesung=2
  763.             SETCLIP('VAR_K03_Aufloesung','2')
  764.             CALL K03_StatusZeile(CatVAR03_Dialog13)
  765.         END
  766.     IF msgcode = 3 THEN
  767.         DO
  768.             VAR_K03_Aufloesung=3
  769.             SETCLIP('VAR_K03_Aufloesung','3')
  770.             CALL K03_StatusZeile(CatVAR03_Dialog14)
  771.         END
  772. RETURN
  773.  
  774. K03_Qualli:
  775.     VAR_K03_Quallitaet = msgcode
  776.     SETCLIP('VAR_K03_Quallitaet',VAR_K03_Quallitaet)
  777.     CALL K03_StatusZeile(CatVAR03_Dialog17 VAR_K03_Quallitaet)
  778. RETURN
  779.  
  780. K03_SerNummer:
  781.     VAR_K03_SerNummer  = GetStrGad(w1,307)
  782.     SETCLIP('VAR_K03_SerNummer',VAR_K03_SerNummer)
  783.     CALL K03_StatusZeile(CatVAR03_Dialog15 VAR_K03_SerNummer)
  784. RETURN
  785.  
  786. K03_WarteZeit:
  787.     VAR_K03_WarteZeit  = GetStrGad(w1,308)
  788.     SETCLIP('VAR_K03_WarteZeit',VAR_K03_WarteZeit)
  789.     CALL K03_StatusZeile(CatVAR03_Dialog16 VAR_K03_WarteZeit)
  790. RETURN
  791.  
  792. K03_BelichtZeit:
  793.     IF msgcode = 0 THEN
  794.         DO
  795.             VAR_K03_BelichtZeit="0"
  796.             VAR_K03_BelichtZeit_Status="0"
  797.             SETCLIP('VAR_K03_BelichtZeit','0')
  798.             CALL K03_StatusZeile(CatVAR03_Dialog18 CatVAR03_Dialog19)
  799.         END
  800.     IF msgcode = 1 THEN
  801.         DO
  802.             VAR_K03_BelichtZeit="10000"
  803.             VAR_K03_BelichtZeit_Status="1"
  804.             SETCLIP('VAR_K03_BelichtZeit','10000')
  805.             CALL K03_StatusZeile(CatVAR03_Dialog18 "10000")
  806.         END
  807.     IF msgcode = 2 THEN
  808.         DO
  809.             VAR_K03_BelichtZeit="20000"
  810.             VAR_K03_BelichtZeit_Status="2"
  811.             SETCLIP('VAR_K03_BelichtZeit','10000')
  812.             CALL K03_StatusZeile(CatVAR03_Dialog18 "20000")
  813.         END
  814.     IF msgcode = 3 THEN
  815.         DO
  816.             VAR_K03_BelichtZeit="40000"
  817.             VAR_K03_BelichtZeit_Status="3"
  818.             SETCLIP('VAR_K03_BelichtZeit','40000')
  819.             CALL K03_StatusZeile(CatVAR03_Dialog18 "40000")
  820.         END
  821.     IF msgcode = 4 THEN
  822.         DO
  823.             VAR_K03_BelichtZeit="60000"
  824.             VAR_K03_BelichtZeit_Status="4"
  825.             SETCLIP('VAR_K03_BelichtZeit','60000')
  826.             CALL K03_StatusZeile(CatVAR03_Dialog18 "60000")
  827.         END
  828.     IF msgcode = 5 THEN     
  829.         DO
  830.             VAR_K03_BelichtZeit="5"
  831.             VAR_K03_BelichtZeit_Status="5"
  832.             SETCLIP('VAR_K03_BelichtZeit','80000')
  833.             CALL K03_StatusZeile(CatVAR03_Dialog18 "80000")
  834.         END
  835.     IF msgcode = 6 THEN
  836.         DO
  837.             VAR_K03_BelichtZeit="100000"
  838.             VAR_K03_BelichtZeit_Status="6"
  839.             SETCLIP('VAR_K03_BelichtZeit','100000')
  840.             CALL K03_StatusZeile(CatVAR03_Dialog18 "100000")
  841.         END
  842.     IF msgcode = 7 THEN
  843.         DO
  844.             VAR_K03_BelichtZeit="120000"
  845.             VAR_K03_BelichtZeit_Status="7"
  846.             SETCLIP('VAR_K03_BelichtZeit','120000')
  847.             CALL K03_StatusZeile(CatVAR03_Dialog18 "120000")
  848.         END
  849.     IF msgcode = 8 THEN
  850.         DO
  851.             VAR_K03_BelichtZeit="140000"
  852.             VAR_K03_BelichtZeit_Status="8"
  853.             SETCLIP('VAR_K03_BelichtZeit','140000')
  854.             CALL K03_StatusZeile(CatVAR03_Dialog18 "140000")
  855.         END
  856.     IF msgcode = 9 THEN
  857.         DO
  858.             VAR_K03_BelichtZeit="160000"
  859.             VAR_K03_BelichtZeit_Status="9"
  860.             SETCLIP('VAR_K03_BelichtZeit','160000')
  861.             CALL K03_StatusZeile(CatVAR03_Dialog18 "160000")
  862.         END
  863.     IF msgcode = 10 THEN
  864.         DO
  865.             VAR_K03_BelichtZeit="180000"
  866.             VAR_K03_BelichtZeit_Status="10"
  867.             SETCLIP('VAR_K03_BelichtZeit','180000')
  868.             CALL K03_StatusZeile(CatVAR03_Dialog18 "180000")
  869.         END
  870. RETURN
  871.  
  872. K03_GadGetInti:
  873.     CALL Gt_SetGadgetAttrs(previousgadget301,w1,Null(),GTCB_CHECKED,VAR_K03_CheckWCOnOff,Tag_Done,0)
  874.     CALL Gt_SetGadgetAttrs(previousgadget302,w1,Null(),GTCB_CHECKED,VAR_K03_CheckKopieOnOff,Tag_Done,0)
  875.     CALL Gt_SetGadgetAttrs(previousgadget303,w1,Null(),GTCB_CHECKED,VAR_K03_OrgKopieren,Tag_Done,0)
  876.     CALL Gt_SetGadgetAttrs(previousgadget304,w1,Null(),GTCB_CHECKED,VAR_K03_Blitz,Tag_Done,0)
  877.     CALL Gt_SetGadgetAttrs(previousgadget305,w1,Null(),GTCY_Active,VAR_K03_Aufloesung,Tag_Done,0)
  878.     CALL Gt_SetGadgetAttrs(previousgadget306,w1,Null(),GTSL_LEVEL,VAR_K03_Quallitaet,Tag_Done,0)
  879.     CALL Gt_SetGadgetAttrs(previousgadget307,w1,Null(),GTIN_NUMBER,VAR_K03_SerNummer,Tag_Done,0)
  880.     CALL Gt_SetGadgetAttrs(previousgadget309,w1,Null(),GTSL_LEVEL,VAR_K03_BelichtZeit_Status,Tag_Done,0)
  881. RETURN
  882.  
  883. K03_StatusZeile:
  884.     Parse ARG VAR_K03_StatusText
  885.     CALL Gt_SetGadgetAttrs(previousgadget320,w1,Null(),GTTX_TEXT,VAR_K03_StatusText,Tag_Done,0)
  886.     DROP VAR_K03_StatusText
  887. RETURN
  888.  
  889.  
  890. /*Refresh kartei 4*/
  891.  
  892. _GadGetKartei04:
  893.     IF AktiveKartei = 1 THEN FREEGADGETS(previousgadget101)
  894.     IF AktiveKartei = 2 THEN FREEGADGETS(previousgadget201)
  895.     IF AktiveKartei = 3 THEN FREEGADGETS(previousgadget301)
  896.     IF AktiveKartei = 4 THEN FREEGADGETS(previousgadget401)
  897.     IF AktiveKartei = 5 THEN FREEGADGETS(previousgadget501)
  898.  
  899.     AktiveKartei=4
  900.     SETCLIP('VAR_AktiveKartei','4')
  901.     CLEARSCREEN(rpw1,11,11)
  902.  
  903.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,80,40,180,20,CatVAR04_CamInfo01,PLACETEXT_LEFT,401,null())
  904.     previousgadget401     = CreateGadget(TEXT_KIND,previousgadget5,newgadx,GTTX_BORDER,1,Tag_Done,0)
  905.  
  906.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,80,60,180,20,CatVAR04_CamInfo02,PLACETEXT_LEFT,402,null())
  907.     Previousgadget402     = CREATEGADGET(TEXT_KIND,previousgadget401,newgadx,GTTX_BORDER,1,TAG_DONE,0)
  908.  
  909.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,80,80,180,20,CatVAR04_CamInfo03,PLACETEXT_LEFT,403,null())
  910.     Previousgadget403     = CREATEGADGET(TEXT_KIND,previousgadget402,newgadx,GTTX_BORDER,1,TAG_DONE,0)
  911.  
  912.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,40,80,20,CatVAR04_CamInfo04,PLACETEXT_LEFT,404,null())
  913.     Previousgadget404     = CREATEGADGET(TEXT_KIND,previousgadget403,newgadx,GTTX_BORDER,1,TAG_DONE,0)
  914.  
  915.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,60,80,20,CatVAR04_CamInfo05,PLACETEXT_LEFT,405,null())
  916.     Previousgadget405     = CREATEGADGET(TEXT_KIND,previousgadget404,newgadx,GTTX_BORDER,1,TAG_DONE,0)
  917.  
  918.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,80,80,20,CatVAR04_CamInfo06,PLACETEXT_LEFT,406,null())
  919.     Previousgadget406     = CREATEGADGET(TEXT_KIND,previousgadget405,newgadx,GTTX_BORDER,1,TAG_DONE,0)
  920.  
  921.     Labels_RES= Make_Labels(4,CatVAR04_AufLoes01,CatVAR04_AufLoes02,CatVAR04_AufLoes03,CatVAR04_AufLoes04)
  922.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,110,140,20,CatVAR04_Cyrcle01,PLACETEXT_LEFT,407,null())
  923.     Previousgadget407     = CREATEGADGET(CYCLE_KIND,previousgadget406,newgadx,GTCY_LABELS,Labels_RES,GTCY_Active,0,TAG_DONE,0)
  924.  
  925.     Labels_FM = Make_Labels(6,CatVAR04_Blitz01,CatVAR04_Blitz02,CatVAR04_Blitz03,CatVAR04_Blitz04,CatVAR04_Blitz05,CatVAR04_Blitz06)
  926.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,130,140,20,CatVAR04_Cyrcle02,PLACETEXT_LEFT,408,null())
  927.     Previousgadget408     = CREATEGADGET(CYCLE_KIND,previousgadget407,newgadx,GTCY_LABELS,Labels_FM,GTCY_Active,0,TAG_DONE,0)
  928.  
  929.     Labels_LM = Make_Labels(3,CatVAR04_LinsenM01,CatVAR04_LinsenM02,CatVAR04_LinsenM03)
  930.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,150,140,20,CatVAR04_Cyrcle03,PLACETEXT_LEFT,409,null())
  931.     Previousgadget409     = CREATEGADGET(CYCLE_KIND,previousgadget408,newgadx,GTCY_LABELS,Labels_LM,GTCY_Active,0,TAG_DONE,0)
  932.  
  933.     Labels_LD = Make_Labels(3,CatVAR04_Datum01,CatVAR04_Datum02,CatVAR04_Datum03)
  934.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,170,140,20,CatVAR04_Cyrcle04,PLACETEXT_LEFT,410,null())
  935.     Previousgadget410     = CREATEGADGET(CYCLE_KIND,previousgadget409,newgadx,GTCY_LABELS,Labels_LD,GTCY_Active,0,TAG_DONE,0)
  936.  
  937.     Labels_AP = Make_Labels(3,CatVAR04_Apature01,CatVAR04_Apature02,CatVAR04_Apature03)
  938.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,190,140,20,CatVAR04_Cyrcle05,PLACETEXT_LEFT,411,null())
  939.     Previousgadget411     = CREATEGADGET(CYCLE_KIND,previousgadget410,newgadx,GTCY_LABELS,Labels_AP,GTCY_Active,0,TAG_DONE,0)
  940.  
  941.     Labels_CM = Make_Labels(2,CatVAR04_FarbMod01,CatVAR04_FarbMod02)
  942.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,210,140,20,CatVAR04_Cyrcle06,PLACETEXT_LEFT,412,null())
  943.     Previousgadget412     = CREATEGADGET(CYCLE_KIND,previousgadget411,newgadx,GTCY_LABELS,Labels_CM,GTCY_Active,0,TAG_DONE,0)
  944.  
  945.     Labels_EXP = Make_Labels(3,CatVAR04_ExpMeter01,CatVAR04_ExpMeter02,CatVAR04_ExpMeter03)
  946.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,230,140,20,CatVAR04_Cyrcle07,PLACETEXT_LEFT,413,null())
  947.     Previousgadget413     = CREATEGADGET(CYCLE_KIND,previousgadget412,newgadx,GTCY_LABELS,Labels_EXP,GTCY_Active,0,TAG_DONE,0)
  948.  
  949.     Labels_BM = Make_Labels(5,CatVAR04_Bitmap01,CatVAR04_Bitmap02,CatVAR04_Bitmap03,CatVAR04_Bitmap04,CatVAR04_Bitmap05)
  950.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,250,140,20,CatVAR04_Cyrcle08,PLACETEXT_LEFT,414,null())
  951.     Previousgadget414     = CREATEGADGET(CYCLE_KIND,previousgadget413,newgadx,GTCY_LABELS,Labels_BM,GTCY_Active,0,TAG_DONE,0)
  952.  
  953.     Labels_WB = Make_Labels(5,CatVAR04_FarbAb01,CatVAR04_FarbAb02,CatVAR04_FarbAb03,CatVAR04_FarbAb04,CatVAR04_FarbAb05)
  954.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,270,140,20,CatVAR04_Cyrcle09,PLACETEXT_LEFT,415,null())
  955.     Previousgadget415     = CREATEGADGET(CYCLE_KIND,previousgadget414,newgadx,GTCY_LABELS,Labels_WB,GTCY_Active,0,TAG_DONE,0)
  956.  
  957.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,110,80,20,CatVAR04_String01,PLACETEXT_LEFT,416,null())
  958.     Previousgadget416     = CREATEGADGET(INTEGER_KIND,previousgadget415,newgadx,GTIN_MaxChars,9,GTIN_NUMBER,0,TAG_DONE,0)
  959.  
  960.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,130,80,20,CatVAR04_String02,PLACETEXT_LEFT,417,null())
  961.     Previousgadget417     = CREATEGADGET(INTEGER_KIND,previousgadget416,newgadx,GTIN_MaxChars,9,GTIN_NUMBER,0,TAG_DONE,0)
  962.  
  963.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,170,80,20,CatVAR04_String03,PLACETEXT_LEFT,418,null())
  964.     Previousgadget418     = CREATEGADGET(INTEGER_KIND,previousgadget417,newgadx,GTIN_MaxChars,9,GTIN_NUMBER,0,TAG_DONE,0)
  965.  
  966.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,190,80,20,CatVAR04_String04,PLACETEXT_LEFT,419,null())
  967.     Previousgadget419     = CREATEGADGET(INTEGER_KIND,previousgadget418,newgadx,GTIN_MaxChars,3,GTIN_NUMBER,0,TAG_DONE,0)
  968.  
  969.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,210,80,20,CatVAR04_String05,PLACETEXT_LEFT,420,null())
  970.     Previousgadget420     = CREATEGADGET(INTEGER_KIND,previousgadget419,newgadx,GTIN_MaxChars,1,GTIN_NUMBER,0,TAG_DONE,0)
  971.  
  972.  
  973.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,120,300,140,20,CatVAR04_Button01,PLACETEXT_IN,421,null())
  974.     Previousgadget421     = CREATEGADGET(BUTTON_KIND,previousgadget420,newgadx,TAG_DONE,0)
  975.  
  976.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,300,300,140,20,CatVAR04_Button02,PLACETEXT_IN,422,null())
  977.     Previousgadget422     = CREATEGADGET(BUTTON_KIND,previousgadget421,newgadx,TAG_DONE,0)
  978.     /*
  979.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,310,300,120,20,"Abbruch",PLACETEXT_IN,423,null())
  980.     Previousgadget423     = CREATEGADGET(BUTTON_KIND,previousgadget422,newgadx,TAG_DONE,0)
  981.     */
  982.     CALL _ZeichneNeuKartei04()
  983.  
  984. Return
  985.  
  986. _ZeichneNeuKartei04:
  987.     CALL GT_RefreshWindow(w1,null())
  988.     CALL RefreshGadGets(previousGadget,w1,null())
  989.  
  990.     CALL SetAPen(rpw1,2)
  991.     CALL Move(rpw1,10,325)  /*breite höhe*/
  992.     CALL Draw(rpw1,10,34)
  993.     CALL Draw(rpw1,260,34)
  994.  
  995.     CALL SetAPen(rpw1,0)
  996.     CALL Draw(rpw1,340,34)
  997.  
  998.     CALL SetAPen(rpw1,2)
  999.     CALL Draw(rpw1,450,34)
  1000.  
  1001.     CALL SetAPen(rpw1,1)
  1002.     CALL Draw(rpw1,450,325)
  1003.     CALL Draw(rpw1,10,325)
  1004.     CALL K04_GadGetInti()
  1005.  
  1006.     OFFGADGET(previousgadget419,w1,0)
  1007.     OFFGADGET(previousgadget420,w1,0)
  1008. RETURN
  1009.  
  1010. /*    GadVerarbeitung Kartei 4 */
  1011.  
  1012. K04_CyrcleAufLoesung:
  1013.     IF msgcode = 0 then VAR_K04_AufLoesung = "1"  /* Low             */
  1014.     IF msgcode = 1 then VAR_K04_AufLoesung = "2"  /* HQ              */
  1015.     IF msgcode = 2 then VAR_K04_AufLoesung = "3"  /* SHQ             */
  1016.     IF msgcode = 3 then VAR_K04_AufLoesung = "6"  /* SHQ unk         */
  1017. RETURN
  1018.  
  1019. K04_CyrcleBlitz:
  1020.     IF msgcode = 0 then VAR_K04_Blitz = "0"       /* Auto            */
  1021.     IF msgcode = 1 then VAR_K04_Blitz = "1"       /* Force           */
  1022.     IF msgcode = 2 then VAR_K04_Blitz = "2"       /* Off             */
  1023.     IF msgcode = 3 then VAR_K04_Blitz = "3"       /* AntiRedEye      */
  1024.     IF msgcode = 4 then VAR_K04_Blitz = "4"       /* SlowSync        */
  1025.     IF msgcode = 5 then VAR_K04_Blitz = "5"       /* Augen+Vorblitz  */
  1026. RETURN
  1027.  
  1028. K04_CyrcleLinsenModus:
  1029.     IF msgcode = 0 then VAR_K04_LinsenModus = "1" /* Macro           */
  1030.     IF msgcode = 1 then VAR_K04_LinsenModus = "2" /* Normal          */
  1031.     IF msgcode = 2 then VAR_K04_LinsenModus = "3" /* Fisheye         */
  1032. RETURN
  1033.  
  1034. K04_CyrcleLCDDatum:
  1035.     IF msgcode = 0 then VAR_K04_LCDDatum = "1"    /* yy mm dd        */
  1036.     IF msgcode = 1 then VAR_K04_LCDDatum = "2"    /* mm dd yy        */
  1037.     IF msgcode = 2 then VAR_K04_LCDDatum = "3"    /* dd mm yy        */
  1038. RETURN
  1039.  
  1040. K04_CyrcleAperture:
  1041.     IF msgcode = 0 then VAR_K04_Aperture = "1"    /* Low             */
  1042.     IF msgcode = 1 then VAR_K04_Aperture = "2"    /* Mid             */
  1043.     IF msgcode = 2 then VAR_K04_Aperture = "3"    /* Hi              */
  1044. RETURN
  1045.  
  1046. K04_CyrcleFarbModus:
  1047.     IF msgcode = 0 then VAR_K04_FarbModus = "1"   /* Color          */
  1048.     IF msgcode = 1 then VAR_K04_FarbModus = "2"   /* B/W            */
  1049. RETURN
  1050.  
  1051. K04_CyrcleExpMeter:
  1052.     IF msgcode = 0 then VAR_K04_ExpMeter = "2"    /* Center Weighted*/
  1053.     IF msgcode = 1 then VAR_K04_ExpMeter = "3"    /* Spot           */
  1054.     IF msgcode = 2 then VAR_K04_ExpMeter = "5"    /* MultiElemenMatrix */
  1055. RETURN
  1056.  
  1057. K04_CyrcleBitmap:
  1058.     IF msgcode = 0 then VAR_K04_BitMap = "1"      /* AEL/WEL        */
  1059.     IF msgcode = 1 then VAR_K04_BitMap = "2"      /* FishEye        */
  1060.     IF msgcode = 2 then VAR_K04_BitMap = "4"      /* Wide           */
  1061.     IF msgcode = 3 then VAR_K04_BitMap = "8"      /* Digital Zoom   */
  1062.     IF msgcode = 4 then VAR_K04_BitMap = "16"     /* B/W            */
  1063. RETURN
  1064.  
  1065. K04_CyrcleFarbabgleich:
  1066.     IF msgcode = 0 then VAR_K04_Farbabgleich = "0"/* Auto           */
  1067.     IF msgcode = 1 then VAR_K04_Farbabgleich = "1"/* Skylight       */
  1068.     IF msgcode = 2 then VAR_K04_Farbabgleich = "2"/* Fluorescent    */
  1069.     IF msgcode = 3 then VAR_K04_Farbabgleich = "3"/* Tungsten Glübirne */
  1070.     IF msgcode = 4 then VAR_K04_Farbabgleich = "255"/* Cloudy       */
  1071. RETURN
  1072.  
  1073. K04_StringBelichtzeit:
  1074.     VAR_K04_BelichtZeit = GetStrGad(w1,416)
  1075. RETURN
  1076.  
  1077. K04_StringCamAusZeit:
  1078.     VAR_K04_CamAusZeit  = GetStrGad(w1,417)
  1079. RETURN
  1080.  
  1081. K04_StringLCDAusZeit:
  1082.     VAR_K04_LCDAusZeit  = GetStrGad(w1,418)
  1083. RETURN
  1084.  
  1085. K04_StringLCDHell:
  1086.     VAR_K04_LCDHell     = GetStrGad(w1,419)
  1087. RETURN
  1088.  
  1089. K04_StringKontrast:
  1090.     VAR_K04_Kontrast    = GetStrGad(w1,420)
  1091. RETURN
  1092.  
  1093. K04_ButtonSpeichern:
  1094. Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "RES="VAR_K04_AufLoesung "FM="VAR_K04_Blitz "LM="VAR_K04_LinsenModus "LD="VAR_K04_LCDDatum "AP="VAR_K04_Aperture "CM="VAR_K04_FarbModus "EXP="VAR_K04_ExpMeter "BM="VAR_K04_BitMap "WB="VAR_K04_Farbabgleich "SH="VAR_K04_BelichtZeit "ASH="VAR_K04_CamAusZeit "LS="VAR_K04_LCDAusZeit "LB="VAR_K04_LCDHell "BC="VAR_K04_Kontrast ">NIL:"
  1095. RETURN
  1096.  
  1097. K04_ButtonLaden:
  1098.     Address Command "T:DigiCam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "INFO >T:CamInfo.txt"
  1099.     IF Open(CamLogFile,"T:CamInfo.txt",r) THEN
  1100.         DO
  1101.             NILK04Zeilenanzahl=0
  1102.                 DO UNTIL NILK04Zeile.NILK04Zeilenanzahl2 = "Speed acknowledged by camera"
  1103.                     NILK04Zeile.NILK04Zeilenanzahl=ReadLn(CamLogFile)
  1104.                     NILK04Zeilenanzahl2 = NILK04Zeilenanzahl
  1105.                     NILK04Zeilenanzahl  = NILK04Zeilenanzahl+1
  1106.                 END
  1107.  
  1108.             K04Zeilenanzahl=0
  1109.                 DO UNTIL EOF(CamLogFile)
  1110.                     K04Zeile.K04Zeilenanzahl = ReadLn(CamLogFile)
  1111.                     K04Zeile.K04Zeilenanzahl = DelStr(K04Zeile.K04Zeilenanzahl,1,19)
  1112.                     K04Zeilenanzahl  = K04Zeilenanzahl+1
  1113.                 END
  1114.         END
  1115.     Close(CamLogFile)
  1116.     SchonGeladen = "ja"
  1117. /*ABfrage Auflösung*/
  1118.     IF K04Zeile.11 = 1 THEN DO
  1119.                          VAR_K04_AufLoesung = "1"
  1120.                          VAR_K04_AufLoesung_STATUS = "0"
  1121.                          END
  1122.     IF K04Zeile.11 = 2 THEN DO
  1123.                          VAR_K04_AufLoesung = "2"
  1124.                          VAR_K04_AufLoesung_STATUS = "1"
  1125.                          END
  1126.     IF K04Zeile.11 = 3 THEN DO
  1127.                          VAR_K04_AufLoesung = "3"
  1128.                          VAR_K04_AufLoesung_STATUS = "2"
  1129.                          END
  1130.     IF K04Zeile.11 = 6 THEN DO
  1131.                          VAR_K04_AufLoesung = "6"
  1132.                          VAR_K04_AufLoesung_STATUS = "3"
  1133.                          END
  1134. /*ABfrage BelichtungsZeit */
  1135.     VAR_K04_BelichtZeit = K04Zeile.12
  1136. /*ABfrage Blitz*/
  1137.     IF K04Zeile.13 = 0 THEN DO
  1138.                          VAR_K04_Blitz = "0"
  1139.                          VAR_K04_Blitz_STATUS = "0"
  1140.                          END
  1141.     IF K04Zeile.13 = 1 THEN DO
  1142.                          VAR_K04_Blitz = "1"
  1143.                          VAR_K04_Blitz_STATUS = "1"
  1144.                          END
  1145.     IF K04Zeile.13 = 2 THEN DO
  1146.                          VAR_K04_Blitz = "2"
  1147.                          VAR_K04_Blitz_STATUS = "2"
  1148.                          END
  1149.     IF K04Zeile.13 = 3 THEN DO
  1150.                          VAR_K04_Blitz = "3"
  1151.                          VAR_K04_Blitz_STATUS = "3"
  1152.                          END
  1153.     IF K04Zeile.13 = 4 THEN DO
  1154.                          VAR_K04_Blitz = "4"
  1155.                          VAR_K04_Blitz_STATUS = "4"
  1156.                          END
  1157.     IF K04Zeile.13 = 5 THEN DO
  1158.                          VAR_K04_Blitz = "5"
  1159.                          VAR_K04_Blitz_STATUS = "5"
  1160.                          END
  1161. /*ABfrage LinsenModus*/
  1162.     IF K04Zeile.14 = 1 THEN DO
  1163.                          VAR_K04_LinsenModus = "1"
  1164.                          VAR_K04_LinsenModus_STATUS = "0"
  1165.                          END
  1166.     IF K04Zeile.14 = 2 THEN DO
  1167.                          VAR_K04_LinsenModus = "2"
  1168.                          VAR_K04_LinsenModus_STATUS = "1"
  1169.                          END
  1170.     IF K04Zeile.14 = 3 THEN DO
  1171.                          VAR_K04_LinsenModus = "3"
  1172.                          VAR_K04_LinsenModus_STATUS = "2"
  1173.                          END
  1174. /*ABfrage CamAusZeit */
  1175.     VAR_K04_CamAusZeit = K04Zeile.15
  1176. /*ABfrage LCD AusZeit */
  1177.     VAR_K04_LCDAusZeit = K04Zeile.17
  1178. /*ABfrage LCD Datum*/
  1179.     IF K04Zeile.18 = 1 THEN DO
  1180.                          VAR_K04_LCDDatum = "1"
  1181.                          VAR_K04_LCDDatum_STATUS = "0"
  1182.                          END
  1183.     IF K04Zeile.18 = 2 THEN DO
  1184.                          VAR_K04_LCDDatum = "2"
  1185.                          VAR_K04_LCDDatum_STATUS = "1"
  1186.                          END
  1187.     IF K04Zeile.18 = 3 THEN DO
  1188.                          VAR_K04_LCDDatum = "3"
  1189.                          VAR_K04_LCDDatum_STATUS = "2"
  1190.                          END
  1191.  
  1192. /*ABfrage LCD Helligkeit */
  1193.     VAR_K04_LCDHell = K04Zeile.19
  1194. /*ABfrage Aperture*/
  1195.     IF K04Zeile.20 = 1 THEN DO
  1196.                          VAR_K04_Aperture = "1"
  1197.                          VAR_K04_Aperture_STATUS = "0"
  1198.                          END
  1199.     IF K04Zeile.20 = 2 THEN DO
  1200.                          VAR_K04_Aperture = "2"
  1201.                          VAR_K04_Aperture_STATUS = "1"
  1202.                          END
  1203.     IF K04Zeile.20 = 3 THEN DO
  1204.                          VAR_K04_Aperture = "3"
  1205.                          VAR_K04_Aperture_STATUS = "2"
  1206.                          END
  1207. /*ABfrage FarbModus*/
  1208.     IF K04Zeile.21 = 1 THEN DO
  1209.                          VAR_K04_FarbModus = "1"
  1210.                          VAR_K04_FarbModus_STATUS = "0"
  1211.                          END
  1212.     IF K04Zeile.21 = 2 THEN DO
  1213.                          VAR_K04_FarbModus = "2"
  1214.                          VAR_K04_FarbModus_STATUS = "1"
  1215.                          END
  1216. /*ABfrage ExpMeter*/
  1217.     IF K04Zeile.22 = 2 THEN DO
  1218.                          VAR_K04_ExpMeter = "2"
  1219.                          VAR_K04_ExpMeter_STATUS = "0"
  1220.                          END
  1221.     IF K04Zeile.22 = 3 THEN DO
  1222.                          VAR_K04_ExpMeter = "3"
  1223.                          VAR_K04_ExpMeter_STATUS = "1"
  1224.                          END
  1225.     IF K04Zeile.22 = 5 THEN DO
  1226.                          VAR_K04_ExpMeter = "5"
  1227.                          VAR_K04_ExpMeter_STATUS = "2"
  1228.                          END
  1229. /*ABfrage BitMap*/
  1230.     IF K04Zeile.23 = 1 THEN DO
  1231.                          VAR_K04_Bitmap = "1"
  1232.                          VAR_K04_Bitmap_STATUS = "0"
  1233.                          END
  1234.     IF K04Zeile.23 = 2 THEN DO
  1235.                          VAR_K04_Bitmap = "2"
  1236.                          VAR_K04_Bitmap_STATUS = "1"
  1237.                          END
  1238.     IF K04Zeile.23 = 4 THEN DO
  1239.                          VAR_K04_Bitmap = "4"
  1240.                          VAR_K04_Bitmap_STATUS = "2"
  1241.                          END
  1242.     IF K04Zeile.23 = 8 THEN DO
  1243.                          VAR_K04_Bitmap = "8"
  1244.                          VAR_K04_Bitmap_STATUS = "3"
  1245.                          END
  1246.     IF K04Zeile.23 =16 THEN DO
  1247.                          VAR_K04_Bitmap = "16"
  1248.                          VAR_K04_Bitmap_STATUS = "4"
  1249.                          END
  1250. /*ABfrage FarbAbgleich*/
  1251.     IF K04Zeile.25 = 0 THEN DO
  1252.                          VAR_K04_FarbAbgleich = "0"
  1253.                          VAR_K04_FarbAbgleich_STATUS = "0"
  1254.                          END
  1255.     IF K04Zeile.25 = 1 THEN DO
  1256.                          VAR_K04_FarbAbgleich = "1"
  1257.                          VAR_K04_FarbAbgleich_STATUS = "1"
  1258.                          END
  1259.     IF K04Zeile.25 = 2 THEN DO
  1260.                          VAR_K04_FarbAbgleich = "2"
  1261.                          VAR_K04_FarbAbgleich_STATUS = "2"
  1262.                          END
  1263.     IF K04Zeile.25 = 3 THEN DO
  1264.                          VAR_K04_FarbAbgleich = "3"
  1265.                          VAR_K04_FarbAbgleich_STATUS = "3"
  1266.                          END
  1267.     IF K04Zeile.25 = 255 THEN DO
  1268.                          VAR_K04_FarbAbgleich = "255"
  1269.                          VAR_K04_FarbAbgleich_STATUS = "4"
  1270.                          END
  1271.     CALL K04_GadGetInti()
  1272. RETURN
  1273.  
  1274. K04_ButtonAbbruch:
  1275. RETURN
  1276.  
  1277. K04_GadGetInti:
  1278.     IF SchonGeladen = "ja" THEN
  1279.         DO
  1280.             CALL Gt_SetGadgetAttrs(previousgadget401,w1,Null(),GTTX_TEXT,K04Zeile.1,Tag_Done,0)
  1281.             CALL Gt_SetGadgetAttrs(previousgadget402,w1,Null(),GTTX_TEXT,K04Zeile.2 K04Zeile.3,Tag_Done,0)
  1282.             CALL Gt_SetGadgetAttrs(previousgadget403,w1,Null(),GTTX_TEXT,K04Zeile.5,Tag_Done,0)
  1283.             CALL Gt_SetGadgetAttrs(previousgadget404,w1,Null(),GTTX_TEXT,K04Zeile.7,Tag_Done,0)
  1284.             CALL Gt_SetGadgetAttrs(previousgadget405,w1,Null(),GTTX_TEXT,K04Zeile.8,Tag_Done,0)
  1285.             CALL Gt_SetGadgetAttrs(previousgadget406,w1,Null(),GTTX_TEXT,K04Zeile.9,Tag_Done,0)
  1286.             CALL Gt_SetGadgetAttrs(previousgadget407,w1,Null(),GTCY_Active,VAR_K04_AufLoesung_STATUS,Tag_Done,0)
  1287.             CALL Gt_SetGadgetAttrs(previousgadget416,w1,Null(),GTIN_NUMBER,K04Zeile.12,Tag_Done,0)
  1288.             CALL Gt_SetGadgetAttrs(previousgadget408,w1,Null(),GTCY_Active,VAR_K04_Blitz_STATUS,Tag_Done,0)
  1289.             CALL Gt_SetGadgetAttrs(previousgadget409,w1,Null(),GTCY_Active,VAR_K04_LinsenModus_STATUS,Tag_Done,0)
  1290.             CALL Gt_SetGadgetAttrs(previousgadget417,w1,Null(),GTIN_NUMBER,K04Zeile.15,Tag_Done,0)
  1291.             CALL Gt_SetGadgetAttrs(previousgadget418,w1,Null(),GTIN_NUMBER,K04Zeile.17,Tag_Done,0)
  1292.             CALL Gt_SetGadgetAttrs(previousgadget410,w1,Null(),GTCY_Active,VAR_K04_LCDDatum_STATUS,Tag_Done,0)
  1293.             CALL Gt_SetGadgetAttrs(previousgadget419,w1,Null(),GTIN_NUMBER,K04Zeile.19,Tag_Done,0)
  1294.             CALL Gt_SetGadgetAttrs(previousgadget411,w1,Null(),GTCY_Active,VAR_K04_Aperture_STATUS,Tag_Done,0)
  1295.             CALL Gt_SetGadgetAttrs(previousgadget412,w1,Null(),GTCY_Active,VAR_K04_FarbModus_STATUS,Tag_Done,0)
  1296.             CALL Gt_SetGadgetAttrs(previousgadget413,w1,Null(),GTCY_Active,VAR_K04_ExpMeter_STATUS,Tag_Done,0)
  1297.             CALL Gt_SetGadgetAttrs(previousgadget414,w1,Null(),GTCY_Active,VAR_K04_Bitmap_STATUS,Tag_Done,0)
  1298.             CALL Gt_SetGadgetAttrs(previousgadget415,w1,Null(),GTCY_Active,VAR_K04_FarbAbgleich_STATUS,Tag_Done,0)
  1299.  
  1300.             IF EXISTs("daten/"K04Zeile.2 || K04Zeile.3) THEN DO
  1301.                 IF Open(CamDataFile,"daten/"K04Zeile.2 || K04Zeile.3,r) THEN DO
  1302.                     DO x=1 to 9
  1303.                         CamModelData.x=ReadCh(CamDataFile)
  1304.                     END
  1305.                     IF CamModelData.1 = 1 THEN ONGADGET(previousgadget407,w1,0)
  1306.                     ELSE OFFGADGET(previousgadget407,w1,0)
  1307.                     IF CamModelData.2 = 1 THEN ONGADGET(previousgadget408,w1,0)
  1308.                     ELSE OFFGADGET(previousgadget408,w1,0)
  1309.                     IF CamModelData.3 = 1 THEN ONGADGET(previousgadget409,w1,0)
  1310.                     ELSE OFFGADGET(previousgadget409,w1,0)
  1311.                     IF CamModelData.4 = 1 THEN ONGADGET(previousgadget410,w1,0)
  1312.                     ELSE OFFGADGET(previousgadget410,w1,0)
  1313.                     IF CamModelData.5 = 1 THEN ONGADGET(previousgadget411,w1,0)
  1314.                     ELSE OFFGADGET(previousgadget411,w1,0)
  1315.                     IF CamModelData.6 = 1 THEN ONGADGET(previousgadget412,w1,0)
  1316.                     ELSE OFFGADGET(previousgadget412,w1,0)
  1317.                     IF CamModelData.7 = 1 THEN ONGADGET(previousgadget413,w1,0)
  1318.                     ELSE OFFGADGET(previousgadget413,w1,0)
  1319.                     IF CamModelData.8 = 1 THEN ONGADGET(previousgadget414,w1,0)
  1320.                     ELSE OFFGADGET(previousgadget414,w1,0)
  1321.                     IF CamModelData.9 = 1 THEN ONGADGET(previousgadget415,w1,0)
  1322.                     ELSE OFFGADGET(previousgadget415,w1,0)
  1323.                 END
  1324.                 Close(CamDataFile)
  1325.             END
  1326.  
  1327.         END
  1328. RETURN
  1329.  
  1330.  
  1331. /*Zeichne GadGetkartei 5*/
  1332.  
  1333. _GadGetKartei05:
  1334.     IF AktiveKartei = 1 THEN FREEGADGETS(previousgadget101)
  1335.     IF AktiveKartei = 2 THEN FREEGADGETS(previousgadget201)
  1336.     IF AktiveKartei = 3 THEN FREEGADGETS(previousgadget301)
  1337.     IF AktiveKartei = 4 THEN FREEGADGETS(previousgadget401)
  1338.     IF AktiveKartei = 5 THEN FREEGADGETS(previousgadget501)
  1339.  
  1340.     AktiveKartei=5
  1341.     SETCLIP('VAR_AktiveKartei','5')
  1342.     CLEARSCREEN(rpw1,11,11)
  1343.  
  1344.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,60,50,20,CatVAR05_Hardwar02,PLACETEXT_IN,501,null())
  1345.     Previousgadget501     = CREATEGADGET(BUTTON_KIND,previousgadget5,newgadx,TAG_DONE,0)
  1346.  
  1347.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,70,60,130,20,"",PLACETEXT_LEFT,502,null())
  1348.     Previousgadget502     = CREATEGADGET(STRING_KIND,previousgadget501,newgadx,TAG_DONE,0)
  1349.                           /*wieviele Labels,LabelText,...,...,*/
  1350.     LabelData = Make_Labels(8,0,1,2,3,4,5,6,7)
  1351.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,250,60,50,20,CatVAR05_Hardwar03,PLACETEXT_LEFT,503,null())
  1352.     Previousgadget503     = CREATEGADGET(CYCLE_KIND,previousgadget502,newgadx,GTCY_LABELS,LabelData,GTCY_Active,0,TAG_DONE,0)
  1353.  
  1354.     LabelData = Make_Labels(10,19200,31250,38400,57600,64000,76800,115200,230400,345600,460800)
  1355.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,360,60,80,20,CatVAR05_Hardwar04,PLACETEXT_LEFT,504,null())
  1356.     Previousgadget504     = CREATEGADGET(CYCLE_KIND,previousgadget503,newgadx,GTCY_LABELS,LabelData,GTCY_Active,0,TAG_DONE,0)
  1357.  
  1358.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,90,130,20,CatVAR05_Hardwar05,PLACETEXT_IN,505,null())
  1359.     Previousgadget505     = CREATEGADGET(BUTTON_KIND,previousgadget504,newgadx,TAG_DONE,0)
  1360.  
  1361.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,90,290,20,"",PLACETEXT_LEFT,506,null())
  1362.     Previousgadget506     = CREATEGADGET(STRING_KIND,previousgadget505,newgadx,TAG_DONE,0)
  1363.  
  1364.  
  1365.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,140,130,20,CatVAR05_WebCam02,PLACETEXT_IN,507,null())
  1366.     Previousgadget507     = CREATEGADGET(BUTTON_KIND,previousgadget506,newgadx,TAG_DONE,0)
  1367.  
  1368.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,140,290,20,"",PLACETEXT_LEFT,508,null())
  1369.     Previousgadget508     = CREATEGADGET(STRING_KIND,previousgadget507,newgadx,TAG_DONE,0)
  1370.  
  1371.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,160,130,20,CatVAR05_WebCam03,PLACETEXT_IN,509,null())
  1372.     Previousgadget509     = CREATEGADGET(BUTTON_KIND,previousgadget508,newgadx,TAG_DONE,0)
  1373.                                                              
  1374.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,160,290,20,"",PLACETEXT_LEFT,510,null())
  1375.     Previousgadget510     = CREATEGADGET(STRING_KIND,previousgadget509,newgadx,TAG_DONE,0)
  1376.  
  1377.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,180,130,20,CatVAR05_WebCam04,PLACETEXT_IN,511,null())
  1378.     Previousgadget511     = CREATEGADGET(BUTTON_KIND,previousgadget510,newgadx,TAG_DONE,0)
  1379.  
  1380.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,180,290,20,"",PLACETEXT_LEFT,512,null())
  1381.     Previousgadget512     = CREATEGADGET(STRING_KIND,previousgadget511,newgadx,TAG_DONE,0)
  1382.  
  1383.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,200,130,20,CatVAR05_WebCam05,PLACETEXT_IN,513,null())
  1384.     Previousgadget513     = CREATEGADGET(BUTTON_KIND,previousgadget512,newgadx,TAG_DONE,0)
  1385.  
  1386.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,200,290,20,"",PLACETEXT_LEFT,514,null())
  1387.     Previousgadget514     = CREATEGADGET(STRING_KIND,previousgadget513,newgadx,TAG_DONE,0)
  1388.  
  1389.  
  1390.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,250,130,20,CatVAR05_Sonstig02,PLACETEXT_IN,515,null())
  1391.     Previousgadget515     = CREATEGADGET(BUTTON_KIND,previousgadget514,newgadx,TAG_DONE,0)
  1392.  
  1393.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,250,290,20,"",PLACETEXT_LEFT,516,null())
  1394.     Previousgadget516     = CREATEGADGET(STRING_KIND,previousgadget515,newgadx,TAG_DONE,0)
  1395.  
  1396.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,20,270,130,20,CatVAR05_Sonstig03,PLACETEXT_IN,517,null())
  1397.     Previousgadget517     = CREATEGADGET(BUTTON_KIND,previousgadget516,newgadx,TAG_DONE,0)
  1398.  
  1399.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,150,270,290,20,"",PLACETEXT_LEFT,518,null())
  1400.     Previousgadget518     = CREATEGADGET(STRING_KIND,previousgadget517,newgadx,TAG_DONE,0)
  1401.  
  1402.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,170,303,130,20,CatVAR05_Button01,PLACETEXT_IN,519,null())
  1403.     Previousgadget519     = CREATEGADGET(BUTTON_KIND,previousgadget518,newgadx,TAG_DONE,0)
  1404.  
  1405.     CALL SetNewGadGet(newgadx,scrvinfo,scrfont,310,303,130,20,CatVAR05_Button02,PLACETEXT_IN,520,null())
  1406.     Previousgadget520     = CREATEGADGET(BUTTON_KIND,previousgadget519,newgadx,TAG_DONE,0)
  1407.  
  1408.     CALL _ZeichneNeuKartei05()
  1409. Return
  1410.  
  1411. _ZeichneNeuKartei05:
  1412.     CALL K05_GadGetInti()
  1413.     CALL GT_RefreshWindow(w1,null())
  1414.     CALL RefreshGadGets(previousGadget,w1,null())
  1415.  
  1416.     CALL SetAPen(rpw1,1) CALL Move(rpw1,15,115) CALL Draw(rpw1,15,50) CALL Draw(rpw1,445,50)
  1417.     CALL SetAPen(rpw1,2)                        CALL Draw(rpw1,445,115) CALL Draw(rpw1,15,115)
  1418.     CALL PITEXT(rpw1,150,45,CatVAR05_Hardwar01,2,0,JAM2,scrfont)
  1419.  
  1420.     CALL SetAPen(rpw1,1) CALL Move(rpw1,15,225) CALL Draw(rpw1,15,130) CALL Draw(rpw1,445,130)
  1421.     CALL SetAPen(rpw1,2)                        CALL Draw(rpw1,445,225) CALL Draw(rpw1,15,225)
  1422.     CALL PITEXT(rpw1,150,125,CatVAR05_WebCam01,2,0,JAM2,scrfont)
  1423.  
  1424.     CALL SetAPen(rpw1,1) CALL Move(rpw1,15,295) CALL Draw(rpw1,15,240) CALL Draw(rpw1,445,240)
  1425.     CALL SetAPen(rpw1,2)                        CALL Draw(rpw1,445,295) CALL Draw(rpw1,15,295)
  1426.     CALL PITEXT(rpw1,150,235,CatVAR05_Sonstig01,2,0,JAM2,scrfont)
  1427.  
  1428.     CALL SetAPen(rpw1,2)
  1429.     CALL Move(rpw1,10,325)  /*breite höhe*/
  1430.     CALL Draw(rpw1,10,34)
  1431.     CALL Draw(rpw1,340,34)
  1432.  
  1433.     CALL SetAPen(rpw1,0)
  1434.     CALL Draw(rpw1,420,34)
  1435.  
  1436.     CALL SetAPen(rpw1,2)
  1437.     CALL Draw(rpw1,450,34)
  1438.  
  1439.     CALL SetAPen(rpw1,1)
  1440.     CALL Draw(rpw1,450,325)
  1441.     CALL Draw(rpw1,10,325)
  1442.  
  1443.     CALL K05_SetzeWCClips()
  1444. RETURN
  1445.  
  1446. /*    GadVerarbeitung Kartei 5 */
  1447.  
  1448. K05_GadGetInti:
  1449.     CALL SetStrGad(previousgadget502,VAR_K05_Device)
  1450.     CALL SetStrGad(previousgadget506,VAR_K05_SpeicherPfad)
  1451.     CALL SetStrGad(previousgadget508,VAR_K05_WCSpeicherPfad)
  1452.     CALL SetStrGad(previousgadget510,VAR_K05_SerBilderPfad)
  1453.     CALL SetStrGad(previousgadget512,VAR_K05_OnlineHTML)
  1454.     CALL SetStrGad(previousgadget514,VAR_K05_OfflineHTML)
  1455.     CALL SetStrGad(previousgadget516,VAR_K05_AnzeigerThrumb)
  1456.     CALL SetStrGad(previousgadget518,VAR_K05_AnzeigerBilder)
  1457.     IF VAR_K05_Unit = 0 THEN
  1458.         DO
  1459.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,0,Tag_Done,0)
  1460.         END
  1461.     IF VAR_K05_Unit = 1 THEN
  1462.         DO
  1463.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,1,Tag_Done,0)
  1464.         END
  1465.     IF VAR_K05_Unit = 2 THEN
  1466.         DO
  1467.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,2,Tag_Done,0)
  1468.         END
  1469.     IF VAR_K05_Unit = 3 THEN
  1470.         DO
  1471.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,3,Tag_Done,0)
  1472.         END
  1473.     IF VAR_K05_Unit = 4 THEN
  1474.         DO
  1475.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,4,Tag_Done,0)
  1476.         END
  1477.     IF VAR_K05_Unit = 5 THEN
  1478.         DO
  1479.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,5,Tag_Done,0)
  1480.         END
  1481.     IF VAR_K05_Unit = 6 THEN
  1482.         DO
  1483.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,6,Tag_Done,0)
  1484.         END
  1485.     IF VAR_K05_Unit = 7 THEN
  1486.         DO
  1487.             CALL Gt_SetGadgetAttrs(previousgadget503,w1,Null(),GTCY_Active,7,Tag_Done,0)
  1488.         END
  1489.     IF VAR_K05_Speed = "19200" THEN
  1490.         DO
  1491.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,0,Tag_Done,0)
  1492.         END
  1493.     IF VAR_K05_Speed = "31250" THEN
  1494.         DO
  1495.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,1,Tag_Done,0)
  1496.         END
  1497.     IF VAR_K05_Speed = "38400" THEN
  1498.         DO
  1499.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,2,Tag_Done,0)
  1500.         END
  1501.     IF VAR_K05_Speed = "57600" THEN
  1502.         DO
  1503.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,3,Tag_Done,0)
  1504.         END
  1505.     IF VAR_K05_Speed = "64000" THEN
  1506.         DO
  1507.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,4,Tag_Done,0)
  1508.         END
  1509.     IF VAR_K05_Speed = "76800" THEN
  1510.         DO
  1511.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,5,Tag_Done,0)
  1512.         END
  1513.     IF VAR_K05_Speed = "115200" THEN
  1514.         DO
  1515.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,6,Tag_Done,0)
  1516.         END
  1517.     IF VAR_K05_Speed = "230400" THEN
  1518.         DO
  1519.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,7,Tag_Done,0)
  1520.         END
  1521.     IF VAR_K05_Speed = "345600" THEN
  1522.         DO
  1523.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,8,Tag_Done,0)
  1524.         END
  1525.     IF VAR_K05_Speed = "460800" THEN
  1526.         DO
  1527.             CALL Gt_SetGadgetAttrs(previousgadget504,w1,Null(),GTCY_Active,9,Tag_Done,0)
  1528.         END
  1529. RETURN
  1530.  
  1531.  
  1532. K05_ButtonDevice:
  1533.     VAR_DRAWERHAIL = "Wähle das .device"
  1534.     VAR_PFAD       = "DEVS:"
  1535.     VAR_DATEI      = "serial.device"
  1536.     VAR_K05_Device = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1537.     CALL SetStrGad(previousgadget502,VAR_K05_Device)
  1538.     CALL _ZeichneNeuKartei05()
  1539. RETURN
  1540.  
  1541. K05_StringDevice:
  1542.     VAR_K05_Device = GetStrGad(w1,502)
  1543. RETURN
  1544.  
  1545. K05_CyrcleUnit:
  1546.     IF msgcode = 0 then VAR_K05_Unit = "0"
  1547.     IF msgcode = 1 then VAR_K05_Unit = "1"
  1548.     IF msgcode = 2 then VAR_K05_Unit = "2"
  1549.     IF msgcode = 3 then VAR_K05_Unit = "3"
  1550.     IF msgcode = 4 then VAR_K05_Unit = "4"
  1551.     IF msgcode = 5 then VAR_K05_Unit = "5"
  1552.     IF msgcode = 6 then VAR_K05_Unit = "6"
  1553.     IF msgcode = 7 then VAR_K05_Unit = "7"
  1554.     CALL _ZeichneNeuKartei05()
  1555. RETURN
  1556.  
  1557. K05_CyrcleSpeed:
  1558.     IF msgcode = 0 then VAR_K05_Speed = "19200"
  1559.     IF msgcode = 1 then VAR_K05_Speed = "31250"
  1560.     IF msgcode = 2 then VAR_K05_Speed = "38400"
  1561.     IF msgcode = 3 then VAR_K05_Speed = "57600"
  1562.     IF msgcode = 4 then VAR_K05_Speed = "64000"
  1563.     IF msgcode = 5 then VAR_K05_Speed = "76800"
  1564.     IF msgcode = 6 then VAR_K05_Speed = "115200"
  1565.     IF msgcode = 7 then VAR_K05_Speed = "230400"
  1566.     IF msgcode = 8 then VAR_K05_Speed = "345600"
  1567.     IF msgcode = 9 then VAR_K05_Speed = "460800"
  1568.     CALL _ZeichneNeuKartei05()
  1569. RETURN
  1570.  
  1571. K05_ButtonSpeicherPfad:
  1572.     VAR_DRAWERHAIL = "Wähle das Speicherpfad"
  1573.     VAR_PFAD       = "RAM:"
  1574.     VAR_DATEI      = "DCamBild"
  1575.     VAR_K05_SpeicherPfad = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1576.     CALL SetStrGad(previousgadget506,VAR_K05_SpeicherPfad)
  1577.     CALL _ZeichneNeuKartei05()
  1578. RETURN
  1579.  
  1580. K05_StringSpeicherPfad:
  1581.     VAR_K05_SpeicherPfad = GetStrGad(w1,506)
  1582. RETURN
  1583.  
  1584. K05_ButtonWCSpeicherPfad:
  1585.     VAR_DRAWERHAIL = "WebCam Speicherpfad"
  1586.     VAR_PFAD       = "HTTP:WebCam/"
  1587.     VAR_DATEI      = "Cam.jpg"
  1588.     VAR_K05_WCSpeicherPfad = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1589.     CALL SetStrGad(previousgadget508,VAR_K05_WCSpeicherPfad)
  1590.     CALL _ZeichneNeuKartei05()
  1591. RETURN
  1592.  
  1593. K05_StringWCSpeicherPfad:
  1594.     VAR_K05_WCSpeicherPfad = GetStrGad(w1,508)
  1595. RETURN
  1596.  
  1597. K05_ButtonSerBilderPfad:
  1598.     VAR_DRAWERHAIL = "Serienbilder Pfad"
  1599.     VAR_PFAD       = "RAM:"
  1600.     VAR_DATEI      = "Bild_"
  1601.     VAR_K05_SerBilderPfad = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1602.     CALL SetStrGad(previousgadget510,VAR_K05_SerBilderPfad)
  1603.     CALL _ZeichneNeuKartei05()
  1604. RETURN
  1605.  
  1606. K05_StringSerBilderPfad:
  1607.     VAR_K05_SerBilderPfad = GetStrGad(w1,510)
  1608. RETURN
  1609.  
  1610. K05_ButtonOnlineHTML:
  1611.     VAR_DRAWERHAIL = "Wähle Online.html"
  1612.     VAR_PFAD       = "HTTP:WebCam"
  1613.     VAR_DATEI      = "Online.html"
  1614.     VAR_K05_OnlineHTML = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1615.     CALL SetStrGad(previousgadget512,VAR_K05_OnlineHTML)
  1616.     CALL _ZeichneNeuKartei05()
  1617. RETURN
  1618.  
  1619. K05_StringOnlineHTML:
  1620.     VAR_K05_OnlineHTML = GetStrGad(w1,512)
  1621. RETURN
  1622.  
  1623. K05_ButtonOfflineHTML:
  1624.     VAR_DRAWERHAIL = "Wähle Offline.html"
  1625.     VAR_PFAD       = "HTTP:WebCam"
  1626.     VAR_DATEI      = "Offline.html"
  1627.     VAR_K05_OfflineHTML = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1628.     CALL SetStrGad(previousgadget514,VAR_K05_OfflineHTML)
  1629.     CALL _ZeichneNeuKartei05()
  1630. RETURN
  1631.  
  1632. K05_StringOfflineHTML:
  1633.     VAR_K05_OfflineHTML = GetStrGad(w1,514)
  1634. RETURN
  1635.  
  1636. K05_ButtonAnzeigerThrumbs:
  1637.     VAR_DRAWERHAIL = "Wähle Thrumbanzeiger"
  1638.     VAR_PFAD       = "C:"
  1639.     VAR_DATEI      = "Visage"
  1640.     VAR_K05_AnzeigerThrumb = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1641.     CALL SetStrGad(previousgadget516,VAR_K05_AnzeigerThrumb)
  1642.     CALL _ZeichneNeuKartei05()
  1643. RETURN
  1644.  
  1645. K05_StringAnzeigerThrumbs:
  1646.     VAR_K05_AnzeigerThrumb = GetStrGad(w1,516)
  1647. RETURN
  1648.  
  1649. K05_ButtonAnzeigerBilder:
  1650.     VAR_DRAWERHAIL = "Wähle Bildanzeiger"
  1651.     VAR_PFAD       = "C:"
  1652.     VAR_DATEI      = "Visage"
  1653.     VAR_K05_AnzeigerBilder = _FileRequester(VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI)
  1654.     CALL SetStrGad(previousgadget518,VAR_K05_AnzeigerBilder)
  1655.     CALL _ZeichneNeuKartei05()
  1656. RETURN
  1657.  
  1658. K05_StringAnzeigerBilder:
  1659.     VAR_K05_AnzeigerBilder = GetStrGad(w1,518)
  1660. RETURN
  1661.  
  1662. K05_ButtonSpeichern:
  1663.     IF Open(SpeicherENVDatei,"ENVARC:DigiCamTool.cfg",w) THEN
  1664.         DO
  1665.             WriteLn(SpeicherENVDatei,VAR_K05_Device)
  1666.             WriteLn(SpeicherENVDatei,VAR_K05_Unit)
  1667.             WriteLn(SpeicherENVDatei,VAR_K05_Speed)
  1668.             WriteLn(SpeicherENVDatei,VAR_K05_SpeicherPfad)
  1669.             WriteLn(SpeicherENVDatei,VAR_K05_WCSpeicherPfad)
  1670.             WriteLn(SpeicherENVDatei,VAR_K05_SerBilderPfad)
  1671.             WriteLn(SpeicherENVDatei,VAR_K05_OnlineHTML)
  1672.             WriteLn(SpeicherENVDatei,VAR_K05_OfflineHTML)
  1673.             WriteLn(SpeicherENVDatei,VAR_K05_AnzeigerThrumb)
  1674.             WriteLn(SpeicherENVDatei,VAR_K05_AnzeigerBilder)
  1675.  
  1676.         END
  1677.     CALL Close(SpeicherENVDatei)
  1678. RETURN
  1679.  
  1680. K05_ButtonLaden:
  1681.     IF Open(LadeENVDatei,"ENVARC:DigiCamTool.cfg",r) THEN
  1682.         DO                             
  1683.             VAR_K05_Device         = ReadLn(LadeENVDatei)
  1684.             VAR_K05_Unit           = ReadLn(LadeENVDatei)
  1685.             VAR_K05_Speed          = ReadLn(LadeENVDatei)
  1686.             VAR_K05_SpeicherPfad   = ReadLn(LadeENVDatei)
  1687.             VAR_K05_WCSpeicherPfad = ReadLn(LadeENVDatei)
  1688.             VAR_K05_SerBilderPfad  = ReadLn(LadeENVDatei)
  1689.             VAR_K05_OnlineHTML     = ReadLn(LadeENVDatei)
  1690.             VAR_K05_OfflineHTML    = ReadLn(LadeENVDatei)
  1691.             VAR_K05_AnzeigerThrumb = ReadLn(LadeENVDatei)
  1692.             VAR_K05_AnzeigerBilder = ReadLn(LadeENVDatei)
  1693.         END
  1694.     CALL Close(LadeENVDatei)
  1695.     CALL K05_SetzeWCClips()
  1696.     IF AktiveKartei=5 THEN CALL _ZeichneNeuKartei05()
  1697. RETURN
  1698.  
  1699. K05_ExistsEinstellung:
  1700.     IF ~EXISTS("ENVARC:DigiCamTool.cfg") THEN
  1701.         DO
  1702.             VAR_K05_Device          = "DEVS:hyperCOM40.device"
  1703.             VAR_K05_Unit            = "2"
  1704.             VAR_K05_Speed           = "230400"
  1705.             VAR_K05_SpeicherPfad    = "RAM:DCamBild"
  1706.             VAR_K05_WCSpeicherPfad  = "HTTP:WebCam/Cam.jpg"
  1707.             VAR_K05_SerBilderPfad   = "RAM:Bild_"
  1708.             VAR_K05_OnlineHTML      = "HTTP:WebCam/Online.html"
  1709.             VAR_K05_OfflineHTML     = "HTTP:WebCam/Offline.html"
  1710.             VAR_K05_AnzeigerThrumb  = "C:Visage"
  1711.             VAR_K05_AnzeigerBilder  = "C:Visage"
  1712.             CALL _GadGetKartei05()
  1713.         END
  1714.     ELSE CALL K05_ButtonLaden()
  1715.     CALL K05_SetzeWCClips()
  1716.     
  1717. RETURN
  1718.  
  1719. K05_SetzeWCClips:
  1720.     SETCLIP('VAR_K05_Device',VAR_K05_Device)
  1721.     SETCLIP('VAR_K05_Unit',VAR_K05_Unit)
  1722.     SETCLIP('VAR_K05_Speed',VAR_K05_Speed)
  1723.  
  1724.     SETCLIP('VAR_K05_WCSpeicherPfad',VAR_K05_WCSpeicherPfad)
  1725.     SETCLIP('VAR_K05_SerBilderPfad',VAR_K05_SerBilderPfad)
  1726.     SETCLIP('VAR_K05_OnlineHTML',VAR_K05_OnlineHTML)
  1727.     SETCLIP('VAR_K05_OfflineHTML',VAR_K05_OfflineHTML)
  1728. RETURN
  1729.  
  1730.  
  1731. /*Funktionen für Kartei 01*/
  1732.  
  1733. _Kartei_01_list:                                 /*--- ListViewGadGet ---*/
  1734. PARSE ARG anzahl
  1735.    Kartei_01_mylist = AllocMem(14,MEMF_CLEAR)
  1736.    call NEWLIST(Kartei_01_mylist)
  1737.    DO x = 1 TO anzahl-2
  1738.       txt = K01Zeile.x
  1739.       ptr_to_node_added = ADD_LIST_NODE(Kartei_01_mylist,txt)
  1740.    end
  1741. return Kartei_01_mylist
  1742.  
  1743. /*Funktionen für Kartei 02*/
  1744.                                                 
  1745. /*Funktionen für Kartei 03*/
  1746.  
  1747. /*Funktionen für Kartei 04*/
  1748.  
  1749. /*Allgemeine Funktionen*/
  1750.  
  1751. _ZerlegePfad:
  1752.     Parse Arg Var_Arg
  1753.     PosPfad = LastPos("/",VAR_Arg)
  1754.         IF PosPfad = 0 THEN
  1755.             DO
  1756.                 PosPfad        = LastPos(":",VAR_Arg)
  1757.                 VAR_ZerLegPfad = DelStr(VAR_Arg,PosPfad+1)
  1758.             END
  1759.         ELSE VAR_ZerLegPfad = DelStr(VAR_Arg,PosPfad+1)
  1760. RETURN VAR_ZerLegPfad
  1761.  
  1762.  
  1763. _LadeCookies:
  1764.     _MaxCookie=1
  1765.     IF Open(CookieTexte,"daten/Cookies",r) THEN
  1766.         DO UNTIL EOF(CookieTexte)
  1767.             VAR_RandomCookie._MaxCookie = ReadLn(CookieTexte)
  1768.             _MaxCookie = _MaxCookie+1
  1769.         END
  1770. RETURN
  1771.  
  1772. Make_Labels:  /*erstellt alle CyrcleGadGets*/
  1773. Parse Arg LabelAnzahl,Text.1,Text.2,Text.3,Text.4,Text.5,Text.6,Text.7,Text.8,Text.9,Text.10
  1774.      mlabels = MAKEPOINTER(0,0,44,MEMF_CLEAR)
  1775.      DO x=1 to LabelAnzahl
  1776.         lbuf = MAKEPOINTER(mlabels,0,Length(Text.x)+1,MEMF_CLEAR)
  1777.         call export(lbuf,Text.x)
  1778.         call SETVALUE(mlabels,(x-1)*4,4,'p',lbuf)
  1779.      end
  1780.      DROP x LabelAnzahl Text.1 Text.2 Text.3 Text.4 Text.5 Text.6 Text.7 Text.8 Text.9 Text.10
  1781. RETURN mlabels
  1782.  
  1783. _RefrashAll:
  1784.     IF AktiveKartei=1 THEN CALL _ZeichneNeuKartei01()
  1785.     IF AktiveKartei=2 THEN CALL _ZeichneNeuKartei02()
  1786.     IF AktiveKartei=3 THEN CALL _ZeichneNeuKartei03()
  1787.     IF AktiveKartei=4 THEN CALL _ZeichneNeuKartei04()
  1788.     IF AktiveKartei=5 THEN CALL _ZeichneNeuKartei05()
  1789. RETURN
  1790.  
  1791. _FileRequester:
  1792. Parse ARG VAR_DRAWERHAIL,VAR_PFAD,VAR_DATEI
  1793.     multi   = 0
  1794.     save    = 0
  1795.     hail    = VAR_DrawerHail
  1796.     dir     = VAR_Pfad
  1797.     file    = VAR_DATEI
  1798.     pat     = 0
  1799.     nofile  = 0
  1800.     win     = null()
  1801.     left    = 0
  1802.     top     = 0
  1803.     width   = 500
  1804.     hgt     = 190
  1805.     sep     = " "   /* this string of chars will separate each file name */
  1806.     freq    = ALLOCFILEREQUEST()
  1807.     FileName= REQUESTFILE(freq,multi,save,hail,dir,file,pat,nofile,win,left,top,width,hgt,sep)
  1808.     CALL FREEFILEREQUEST(freq)
  1809. RETURN FileName
  1810.  
  1811. K03_MakeWebCamSkript:
  1812.     IF Open(WebCamSkript,"T:WebCamSkript.rexx",w) THEN
  1813.         DO
  1814.             
  1815.             WriteLn(WebCamSkript,'/*WebCamSkript V0.1*/ ')
  1816.             WriteLn(WebCamSkript,'CALL Set_APIG_Globals()   ')
  1817.             WriteLn(WebCamSkript,'IDCMPPort = WEBCAMSKRIPTPORT.1 ')
  1818.             WriteLn(WebCamSkript,'CALL OpenPort(IDCMPPort) ')
  1819.             WriteLn(WebCamSkript,'WaitForPort IDCMPPort ')
  1820.             WriteLn(WebCamSkript,' ')
  1821.             WriteLn(WebCamSkript,'WCS_KopierZaehler=0 ')
  1822.             WriteLn(WebCamSkript,'WCS_BilderZaehler=0 ')
  1823.             WriteLn(WebCamSkript,' ')
  1824.             WriteLn(WebCamSkript,'Abfrage: ')
  1825.             WriteLn(WebCamSkript,'exitme = 0 ')
  1826.             WriteLn(WebCamSkript,'do while exitme = 0 ')
  1827.             WriteLn(WebCamSkript,'    Delay(50) ')
  1828.             WriteLn(WebCamSkript,'    IF GETCLIP("VAR_K03_CheckWCOnOff")=0 then exitme = 1 ')
  1829.             WriteLn(WebCamSkript,'    w1                      = GETCLIP("w1") ')
  1830.             WriteLn(WebCamSkript,'    rpw1                    = GETCLIP("rpw1") ')
  1831.             WriteLn(WebCamSkript,'  /*previousGadget          = GETCLIP("previousGadget") ')
  1832.             WriteLn(WebCamSkript,'    previousgadget320       = GETCLIP("previousgadget320") */')
  1833.             WriteLn(WebCamSkript,'    scrfont                 = GETCLIP("scrfont") ')
  1834.             WriteLn(WebCamSkript,'    VAR_K03_CheckKopieOnOff = GETCLIP("VAR_K03_CheckKopieOnOff") ')
  1835.             WriteLn(WebCamSkript,'    VAR_K03_OrgKopieren     = GETCLIP("VAR_K03_OrgKopieren")')
  1836.             WriteLn(WebCamSkript,'    VAR_K03_Blitz           = GETCLIP("VAR_K03_Blitz")')
  1837.             WriteLn(WebCamSkript,'    VAR_K03_Aufloesung      = GETCLIP("VAR_K03_Aufloesung") ')
  1838.             WriteLn(WebCamSkript,'    VAR_K03_WarteZeit       = GETCLIP("VAR_K03_WarteZeit") ')
  1839.             WriteLn(WebCamSkript,'    VAR_K03_BelichtZeit     = GETCLIP("VAR_K03_BelichtZeit")')
  1840.             WriteLn(WebCamSkript,'    VAR_K03_Quallitaet      = GETCLIP("VAR_K03_Quallitaet") ')
  1841.             WriteLn(WebCamSkript,'    VAR_K05_WCSpeicherPfad  = GETCLIP("VAR_K05_WCSpeicherPfad") ')
  1842.             WriteLn(WebCamSkript,'    VAR_K05_SerBilderPfad   = GETCLIP("VAR_K05_SerBilderPfad") ')
  1843.             WriteLn(WebCamSkript,'    WCS_KopierZaehler       = GETCLIP("VAR_K03_SerNummer") ')
  1844.             WriteLn(WebCamSkript,'    VAR_K05_OnlineHTML      = GETCLIP("VAR_K05_OnlineHTML") ')
  1845.             WriteLn(WebCamSkript,'    VAR_K05_OfflineHTML     = GETCLIP("VAR_K05_OfflineHTML") ')
  1846.             WriteLn(WebCamSkript,'    VAR_K05_Device          = GETCLIP("VAR_K05_Device") ')
  1847.             WriteLn(WebCamSkript,'    VAR_K05_Unit            = GETCLIP("VAR_K05_Unit") ')
  1848.             WriteLn(WebCamSkript,'    VAR_K05_Speed           = GETCLIP("VAR_K05_Speed") ')
  1849.             WriteLn(WebCamSkript,' ')
  1850.             WriteLn(WebCamSkript,'    IF VAR_K03_Blitz = 0 THEN VAR_BlitzOpt = "FM=0"')
  1851.             WriteLn(WebCamSkript,'    IF VAR_K03_Blitz = 1 THEN VAR_BlitzOpt = "FM=2"')
  1852.             WriteLn(WebCamSkript,' ')
  1853.             WriteLn(WebCamSkript,'    IF VAR_K03_Aufloesung=0 THEN ')
  1854.             WriteLn(WebCamSkript,'        DO ')
  1855.             WriteLn(WebCamSkript,'            ADDRESS Command "T:digicam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "T:DCam mp" VAR_BlitzOpt ">NIL:"')
  1856.             WriteLn(WebCamSkript,'            ADDRESS Command "T:JpegTool T:DCam_p.jpg T:DCamConv.jpg Q" VAR_K03_Quallitaet "sd 1 force" ">NIL:" ')
  1857.             WriteLn(WebCamSkript,'            CALL WCS_Speichen() ')
  1858.             WriteLn(WebCamSkript,'            ADDRESS Command "copy T:DCamConv.jpg" VAR_K05_WCSpeicherPfad ">NIL:"')
  1859.             WriteLn(WebCamSkript,'          /*ADDRESS Command "copy T:DCam_P.jpg" VAR_K05_WCSpeicherPfad ">NIL:"*/')
  1860.             WriteLn(WebCamSkript,'            IF VAR_K03_CheckKopieOnOff = 1 THEN CALL WCS_Unkopieren')
  1861.             WriteLn(WebCamSkript,'        END ')
  1862.             WriteLn(WebCamSkript,'    IF VAR_K03_Aufloesung=1 THEN ')
  1863.             WriteLn(WebCamSkript,'        DO ')
  1864.             WriteLn(WebCamSkript,'            Address Command "T:digicam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "T:DCam eraseall sh="VAR_K03_BelichtZeit" res=1 "VAR_BlitzOpt" tp gf=1" ">NIL:" ')
  1865.             WriteLn(WebCamSkript,'            Address Command "T:JpegTool T:DCam_1.jpg T:DCamConv.jpg Q" VAR_K03_Quallitaet "sd 1 force" ">NIL:"')
  1866.             WriteLn(WebCamSkript,'            CALL WCS_Speichen() ')
  1867.             WriteLn(WebCamSkript,'            Address Command "copy T:DCamConv.jpg" VAR_K05_WCSpeicherPfad ">NIL:"')
  1868.             WriteLn(WebCamSkript,'            IF VAR_K03_CheckKopieOnOff = 1 THEN CALL WCS_Unkopieren')
  1869.             WriteLn(WebCamSkript,'        END ')
  1870.             WriteLn(WebCamSkript,'    IF VAR_K03_Aufloesung=2 THEN ')
  1871.             WriteLn(WebCamSkript,'        DO ')
  1872.             WriteLn(WebCamSkript,'            ADDRESS Command "T:digicam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "T:DCam eraseall sh="VAR_K03_BelichtZeit" res=1 "VAR_BlitzOpt" tp gf=1" ">NIL:" ')
  1873.             WriteLn(WebCamSkript,'            ADDRESS Command "T:JpegTool T:DCam_1.jpg T:DCamConv.jpg Q" VAR_K03_Quallitaet "sd 2 force" ">NIL:"')
  1874.             WriteLn(WebCamSkript,'            CALL WCS_Speichen() ')
  1875.             WriteLn(WebCamSkript,'            ADDRESS Command "copy T:DCamConv.jpg" VAR_K05_WCSpeicherPfad ">NIL:"')
  1876.             WriteLn(WebCamSkript,'            IF VAR_K03_CheckKopieOnOff = 1 THEN CALL WCS_Unkopieren')
  1877.             WriteLn(WebCamSkript,'        END ')
  1878.             WriteLn(WebCamSkript,'    IF VAR_K03_Aufloesung=3 THEN ')
  1879.             WriteLn(WebCamSkript,'        DO ')
  1880.             WriteLn(WebCamSkript,'            ADDRESS Command "T:digicam" VAR_K05_Device VAR_K05_Unit VAR_K05_Speed "T:DCam eraseall sh="VAR_K03_BelichtZeit" res=1 "VAR_BlitzOpt" tp gt=1" ">NIL:" ')
  1881.             WriteLn(WebCamSkript,'            ADDRESS Command "T:JpegTool T:DCam_1th.jpg T:DCamConv.jpg Q" VAR_K03_Quallitaet "sd 1 force" ">NIL:"')
  1882.             WriteLn(WebCamSkript,'            CALL WCS_Speichen() ')
  1883.             WriteLn(WebCamSkript,'            ADDRESS Command "copy T:DCamConv.jpg" VAR_K05_WCSpeicherPfad ">NIL:" ')
  1884.             WriteLn(WebCamSkript,'          /*ADDRESS Command "copy T:DCam_1th.jpg" VAR_K05_WCSpeicherPfad ">NIL:"*/')
  1885.             WriteLn(WebCamSkript,'            IF VAR_K03_CheckKopieOnOff = 1 THEN CALL WCS_Unkopieren')
  1886.             WriteLn(WebCamSkript,'        END ')
  1887.             WriteLn(WebCamSkript,'    CALL pitext(rpw1,370,304,"XXXXX",0,0,JAM2,scrfont) ')
  1888.             WriteLn(WebCamSkript,'    WCS_BilderZaehler = WCS_BilderZaehler + 1')
  1889.             WriteLn(WebCamSkript,'    CALL pitext(rpw1,370,304,WCS_BilderZaehler,1,2,JAM1,scrfont) ')
  1890.             WriteLn(WebCamSkript,'    SETWINDOWTITLE(w1,"Bilder: "WCS_BilderZaehler" Gespeicher: "WCS_KopierZaehler,"Workbench")  ')
  1891.             WriteLn(WebCamSkript,'    SETCLIP("WCS_BilderZaehler",WCS_BilderZaehler)  ')
  1892.             WriteLn(WebCamSkript,'END ')
  1893.  
  1894.             WriteLn(WebCamSkript,'ENDE: ')
  1895.             WriteLn(WebCamSkript,'    CALL ClosePort(IDCMPPort)                            ')
  1896.             WriteLn(WebCamSkript,'    SETWINDOWTITLE(w1,"DigiCamTool V0.902 beta (eisblock)","Workbench")  ')
  1897.             WriteLn(WebCamSkript,'    SETCLIP("VAR_K03_SerNummer",WCS_KopierZaehler) ')
  1898.             WriteLn(WebCamSkript,'EXIT ')
  1899.  
  1900.             WriteLn(WebCamSkript,' ')
  1901.             WriteLn(WebCamSkript,'WCS_Unkopieren: ')
  1902.             WriteLn(WebCamSkript,'    IF VAR_K03_OrgKopieren = 0 THEN DO')
  1903.             WriteLn(WebCamSkript,'        IF VAR_K03_Aufloesung = 0 THEN  ADDRESS Command "Copy T:DCamConv.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1904.             WriteLn(WebCamSkript,'        IF VAR_K03_Aufloesung = 1 THEN  ADDRESS Command "Copy T:DCamConv.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1905.             WriteLn(WebCamSkript,'        IF VAR_K03_Aufloesung = 2 THEN  ADDRESS Command "Copy T:DCamConv.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1906.             WriteLn(WebCamSkript,'        IF VAR_K03_Aufloesung = 3 THEN  ADDRESS Command "Copy T:DCamConv.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1907.             WriteLn(WebCamSkript,'    END ')
  1908.             WriteLn(WebCamSkript,'    IF VAR_K03_OrgKopieren = 1 THEN')
  1909.             WriteLn(WebCamSkript,'        DO')
  1910.             WriteLn(WebCamSkript,'            IF VAR_K03_Aufloesung = 0 THEN ADDRESS Command "Copy T:DCam_p.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1911.             WriteLn(WebCamSkript,'            IF VAR_K03_Aufloesung = 1 THEN ADDRESS Command "Copy T:DCam_1.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1912.             WriteLn(WebCamSkript,'            IF VAR_K03_Aufloesung = 2 THEN ADDRESS Command "Copy T:DCam_1.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1913.             WriteLn(WebCamSkript,'            IF VAR_K03_Aufloesung = 3 THEN ADDRESS Command "Copy T:DCam_1th.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1914.  
  1915.             WriteLn(WebCamSkript,'            ELSE ADDRESS Command "Copy T:DCam_1.jpg" VAR_K05_SerBilderPfad || WCS_KopierZaehler ||".jpg" ">NIL:" ')
  1916.             WriteLn(WebCamSkript,'        END')
  1917.             WriteLn(WebCamSkript,'    WCS_KopierZaehler = WCS_KopierZaehler + 1')
  1918.             WriteLn(WebCamSkript,'    SETCLIP("VAR_K03_SerNummer",WCS_KopierZaehler)  ')
  1919.             WriteLn(WebCamSkript,'RETURN ')
  1920.             WriteLn(WebCamSkript,' ')
  1921.             WriteLn(WebCamSkript,'WCS_Speichen: ')
  1922.             WriteLn(WebCamSkript,'    geloescht = 0 ')
  1923.             WriteLn(WebCamSkript,'    IF EXISTS(VAR_K05_WCSpeicherPfad)=1 THEN DO while geloescht = 0 ')
  1924.             WriteLn(WebCamSkript,'        IF DELETE(VAR_K05_WCSpeicherPfad) THEN geloescht = 1 ')
  1925.             WriteLn(WebCamSkript,'        ELSE Delay(50) ')
  1926.             WriteLn(WebCamSkript,'    END ')
  1927.             WriteLn(WebCamSkript,'RETURN  ')
  1928.             WriteLn(WebCamSkript,'')
  1929.             WriteLn(WebCamSkript,'')
  1930.         END
  1931.     CALL Close(WebCamSkript)
  1932. RETURN
  1933.  
  1934.  
  1935.  
  1936. /* ___________________________ C U T _________________________*/
  1937.  
  1938.  
  1939. _DicaPrefsPrefs:                                  /* -- Prefs und vordefinirte Variablen -- */
  1940.     /*  Variablen:  */
  1941.     K01Zeilenanzahl          = "0"
  1942.     Kartei_01_Zeilenanzahl   = "0"
  1943.     Kartei_02_Zeilenanzahl   = "0"
  1944.     Kartei_03_Zeilenanzahl   = "0"
  1945.     Kartei_04_Zeilenanzahl   = "0"
  1946.     Kartei_05_Zeilenanzahl   = "0"
  1947.  
  1948.     VAR_K01_ZeigeThrumb      = "off"
  1949.     VAR_K01_Holen            = "GF"
  1950.  
  1951.     VAR_K03_CheckWCOnOff     = "0"
  1952.     VAR_K03_CheckKopieOnOff  = "0"
  1953.     VAR_K03_OrgKopieren      = "0"
  1954.     VAR_K03_Blitz            = "0"
  1955.  
  1956.     VAR_K03_Aufloesung       = "0"
  1957.     VAR_K03_WarteZeit        = "0"
  1958.     VAR_K03_BelichtZeit      = "0"
  1959.     VAR_K03_Quallitaet       = "75"
  1960.     SETCLIP("VAR_K03_SerNummer","0")
  1961.  
  1962.     VAR_K04_AufLoesung       = "1"
  1963.     VAR_K04_Blitz            = "0"
  1964.     VAR_K04_LinsenModus      = "1"
  1965.     VAR_K04_LCDDatum         = "1"
  1966.     VAR_K04_Aperture         = "1"
  1967.     VAR_K04_FarbModus        = "1"
  1968.     VAR_K04_ExpMeter         = "2"
  1969.     VAR_K04_BitMap           = "1"
  1970.     VAR_K04_Farbabgleich     = "0"
  1971.     VAR_K04_BelichtZeit      = "0"
  1972.     VAR_K04_CamAusZeit       = "0"
  1973.     VAR_K04_LCDAusZeit       = "0"
  1974.     VAR_K04_LCDHell          = "0"
  1975.     VAR_K04_Kontrast         = "0"
  1976. RETURN
  1977.  
  1978. LadeCatalogDaten:
  1979.     catalog = OpenCatalog("DiCaTool.catalog","was",1.4)
  1980.  
  1981.     CatVAR01_Bilder        = GetCatalogStr(catalog,100,"_Bilder")
  1982.     CatVAR01_Cyrcle01      = GetCatalogStr(catalog,101,"hole Bilder")
  1983.     CatVAR01_Cyrcle02      = GetCatalogStr(catalog,102,"hole Thrumbs")
  1984.     CatVAR01_Cyrcle03      = GetCatalogStr(catalog,103,"lösche alles")
  1985.     CatVAR01_Start         = GetCatalogStr(catalog,104,"Start")
  1986.     CatVAR01_SerNo         = GetCatalogStr(catalog,105,"SerNo")
  1987.     CatVAR01_ZeigeThrumb   = GetCatalogStr(catalog,106,"zeige Thrumb")
  1988.     CatVAR01_MachBild      = GetCatalogStr(catalog,107,"mach Bild")
  1989.     CatVAR01_ZeigeVorschau = GetCatalogStr(catalog,108,"Vorschau")
  1990.     CatVAR01_Status        = GetCatalogStr(catalog,109,"Status")
  1991.     CatVAR01_Neuladen      = GetCatalogStr(catalog,110,"Neuladen")
  1992.     CatVAR01_Dialog_01     = GetCatalogStr(catalog,111,"hole Bilder")
  1993.     CatVAR01_Dialog_02     = GetCatalogStr(catalog,112,"hole Thrumb")
  1994.     CatVAR01_Dialog_03     = GetCatalogStr(catalog,113,"lösche Bilder")
  1995.     CatVAR01_Dialog_04     = GetCatalogStr(catalog,114,"erstes Bild")
  1996.     CatVAR01_Dialog_05     = GetCatalogStr(catalog,115,"letztes Bild")
  1997.     CatVAR01_Dialog_06     = GetCatalogStr(catalog,116,"Serien Nummer")
  1998.     CatVAR01_Dialog_07     = GetCatalogStr(catalog,117,"Camera macht ein Bild")
  1999.     CatVAR01_Dialog_08     = GetCatalogStr(catalog,118,"Camera macht ein Thrumb")
  2000.     CatVAR01_Dialog_09     = GetCatalogStr(catalog,119,"zeige Thrumb")
  2001.     CatVAR01_Dialog_10     = GetCatalogStr(catalog,120,"zeige Bild")
  2002.     CatVAR01_Dialog_11     = GetCatalogStr(catalog,121,"lade Bilderliste")
  2003.  
  2004.     CatVAR02_Titel         = GetCatalogStr(catalog,200,"_Filme")
  2005.  
  2006.     CatVAR03_Titel         = GetCatalogStr(catalog,300,"_WebCam")
  2007.     CatVAR03_CamAn         = GetCatalogStr(catalog,301,"Webcam an")
  2008.     CatVAR03_UmKAn         = GetCatalogStr(catalog,302,"Umkopieren an")
  2009.     CatVAR03_OrgKopie      = GetCatalogStr(catalog,303,"Org.kopieren")
  2010.     CatVAR03_Blitz         = GetCatalogStr(catalog,304,"Blitz aus")
  2011.     CatVAR03_Aufloesung    = GetCatalogStr(catalog,305,"Auflösung")
  2012.     CatVAR03_Qualli        = GetCatalogStr(catalog,306,"Qualli:__")
  2013.     CatVAR03_SerNr         = GetCatalogStr(catalog,307,"SerNr:")
  2014.     CatVAR03_WarteZeit     = GetCatalogStr(catalog,308,"Wartezeit:")
  2015.     CatVAR03_Belichtung    = GetCatalogStr(catalog,309,"Belichtung:")
  2016.     CatVAR03_Status        = GetCatalogStr(catalog,310,"Status:")
  2017.     CatVAR03_Dialog01      = GetCatalogStr(catalog,311,"Webcam wird beendet")
  2018.     CatVAR03_Dialog02      = GetCatalogStr(catalog,312,"Webcam wurde beendet")
  2019.     CatVAR03_Dialog03      = GetCatalogStr(catalog,313,"Webcam wurde gestartet")
  2020.     CatVAR03_Dialog04      = GetCatalogStr(catalog,314,"ERROR: Webcam scheind noch aktive zusein")
  2021.     CatVAR03_Dialog05      = GetCatalogStr(catalog,315,"Kopierfunktion ist aus")
  2022.     CatVAR03_Dialog06      = GetCatalogStr(catalog,316,"Kopierfunktion ist an")
  2023.     CatVAR03_Dialog07      = GetCatalogStr(catalog,317,"kopiere konvertiertes Bild")
  2024.     CatVAR03_Dialog08      = GetCatalogStr(catalog,318,"kopiere orginales Bild")
  2025.     CatVAR03_Dialog09      = GetCatalogStr(catalog,319,"Blitz ist ausgeschalten")
  2026.     CatVAR03_Dialog10      = GetCatalogStr(catalog,320,"Blitz ist eingeschalten")
  2027.     CatVAR03_Dialog11      = GetCatalogStr(catalog,321,"Auflösung %d ist ein gestellt")
  2028.     CatVAR03_Dialog12      = GetCatalogStr(catalog,322,"Auflösung %d ist ein gestellt")
  2029.     CatVAR03_Dialog13      = GetCatalogStr(catalog,323,"Auflösung %d ist ein gestellt")
  2030.     CatVAR03_Dialog14      = GetCatalogStr(catalog,324,"Auflösung %d ist ein gestellt")
  2031.     CatVAR03_Dialog15      = GetCatalogStr(catalog,325,"start der Serienbilder ist:")
  2032.     CatVAR03_Dialog16      = GetCatalogStr(catalog,326,"Wartezeit zwischen den Bildern:")
  2033.     CatVAR03_Dialog17      = GetCatalogStr(catalog,327,"JPeg Kompression:")
  2034.     CatVAR03_Dialog18      = GetCatalogStr(catalog,328,"Belichtungszeit:")
  2035.     CatVAR03_Dialog19      = GetCatalogStr(catalog,329,"automatisch")
  2036.  
  2037.     CatVAR04_Titel         = GetCatalogStr(catalog,400,"_DiCaPrefs")
  2038.     CatVAR04_CamInfo01     = GetCatalogStr(catalog,401,"Firma")
  2039.     CatVAR04_CamInfo02     = GetCatalogStr(catalog,402,"Model")
  2040.     CatVAR04_CamInfo03     = GetCatalogStr(catalog,403,"Cam Zeit")
  2041.     CatVAR04_CamInfo04     = GetCatalogStr(catalog,404,"Bilder")
  2042.     CatVAR04_CamInfo05     = GetCatalogStr(catalog,405,"Bilder frei")
  2043.     CatVAR04_CamInfo06     = GetCatalogStr(catalog,406,"Speicher frei")
  2044.     CatVAR04_Cyrcle01      = GetCatalogStr(catalog,407,"Auflösung")
  2045.     CatVAR04_Cyrcle02      = GetCatalogStr(catalog,408,"Blitz")
  2046.     CatVAR04_Cyrcle03      = GetCatalogStr(catalog,409,"Linsenmodus")
  2047.     CatVAR04_Cyrcle04      = GetCatalogStr(catalog,410,"LCD Datumsf.")
  2048.     CatVAR04_Cyrcle05      = GetCatalogStr(catalog,411,"Apature")
  2049.     CatVAR04_Cyrcle06      = GetCatalogStr(catalog,412,"Farbmodus")
  2050.     CatVAR04_Cyrcle07      = GetCatalogStr(catalog,413,"Exposure Meter")
  2051.     CatVAR04_Cyrcle08      = GetCatalogStr(catalog,414,"Bitmap")
  2052.     CatVAR04_Cyrcle09      = GetCatalogStr(catalog,415,"Farbabgleich")
  2053.     CatVAR04_String01      = GetCatalogStr(catalog,416,"Belicht.Zeit")
  2054.     CatVAR04_String02      = GetCatalogStr(catalog,417,"CamAusZeit")
  2055.     CatVAR04_String03      = GetCatalogStr(catalog,418,"LCD AusZeit")
  2056.     CatVAR04_String04      = GetCatalogStr(catalog,419,"LCD Helligkeit")
  2057.     CatVAR04_String05      = GetCatalogStr(catalog,420,"Hell/Kontrast")
  2058.     CatVAR04_AufLoes01     = GetCatalogStr(catalog,421,"Low")
  2059.     CatVAR04_AufLoes02     = GetCatalogStr(catalog,422,"HQ")
  2060.     CatVAR04_AufLoes03     = GetCatalogStr(catalog,423,"SHQ")
  2061.     CatVAR04_AufLoes04     = GetCatalogStr(catalog,424,"SHQ unkomp.")
  2062.     CatVAR04_Blitz01       = GetCatalogStr(catalog,425,"Auto")
  2063.     CatVAR04_Blitz02       = GetCatalogStr(catalog,426,"Immer")
  2064.     CatVAR04_Blitz03       = GetCatalogStr(catalog,427,"Aus")
  2065.     CatVAR04_Blitz04       = GetCatalogStr(catalog,428,"keine r. Augen")
  2066.     CatVAR04_Blitz05       = GetCatalogStr(catalog,429,"Vorblitz")
  2067.     CatVAR04_Blitz06       = GetCatalogStr(catalog,430,"k.r.Augen + Vorblitz")
  2068.     CatVAR04_LinsenM01     = GetCatalogStr(catalog,431,"Nahaufnahme")
  2069.     CatVAR04_LinsenM02     = GetCatalogStr(catalog,432,"Normal")
  2070.     CatVAR04_LinsenM03     = GetCatalogStr(catalog,433,"Fischauge")
  2071.     CatVAR04_Datum01       = GetCatalogStr(catalog,434,"yy/mm/dd")
  2072.     CatVAR04_Datum02       = GetCatalogStr(catalog,435,"mm/dd/yy")
  2073.     CatVAR04_Datum03       = GetCatalogStr(catalog,436,"dd/mm/yy")
  2074.     CatVAR04_Apature01     = GetCatalogStr(catalog,437,"Low")
  2075.     CatVAR04_Apature02     = GetCatalogStr(catalog,438,"Mid")
  2076.     CatVAR04_Apature03     = GetCatalogStr(catalog,439,"Hi")
  2077.     CatVAR04_FarbMod01     = GetCatalogStr(catalog,440,"Farbe")
  2078.     CatVAR04_FarbMod02     = GetCatalogStr(catalog,441,"schwarz/weis")
  2079.     CatVAR04_ExpMeter01    = GetCatalogStr(catalog,442,"cent.weighted")
  2080.     CatVAR04_ExpMeter02    = GetCatalogStr(catalog,443,"Spot")
  2081.     CatVAR04_ExpMeter03    = GetCatalogStr(catalog,444,"MultiElementMatrix")
  2082.     CatVAR04_Bitmap01      = GetCatalogStr(catalog,445,"AEL/WEL")
  2083.     CatVAR04_Bitmap02      = GetCatalogStr(catalog,446,"Fischauge")
  2084.     CatVAR04_Bitmap03      = GetCatalogStr(catalog,447,"Wide")
  2085.     CatVAR04_Bitmap04      = GetCatalogStr(catalog,448,"Digital Zoom")
  2086.     CatVAR04_Bitmap05      = GetCatalogStr(catalog,449,"B/W")
  2087.     CatVAR04_FarbAb01      = GetCatalogStr(catalog,450,"Auto")
  2088.     CatVAR04_FarbAb02      = GetCatalogStr(catalog,451,"Sonnig")
  2089.     CatVAR04_FarbAb03      = GetCatalogStr(catalog,452,"Neonlicht")
  2090.     CatVAR04_FarbAb04      = GetCatalogStr(catalog,453,"Glühbirne")
  2091.     CatVAR04_FarbAb05      = GetCatalogStr(catalog,454,"Bewölkt")
  2092.     CatVAR04_Button01      = GetCatalogStr(catalog,455,"Seicher auf Cam")
  2093.     CatVAR04_Button02      = GetCatalogStr(catalog,456,"Lade von Cam")
  2094.  
  2095.     CatVAR05_Titel         = GetCatalogStr(catalog,500,"_Sonstiges")
  2096.     CatVAR05_Hardwar01     = GetCatalogStr(catalog,501,"Hardware Einstellungen")
  2097.     CatVAR05_Hardwar02     = GetCatalogStr(catalog,502,"Devices")
  2098.     CatVAR05_Hardwar03     = GetCatalogStr(catalog,503,"Unit")
  2099.     CatVAR05_Hardwar04     = GetCatalogStr(catalog,504,"Speed")
  2100.     CatVAR05_Hardwar05     = GetCatalogStr(catalog,505,"Speicherpfad")
  2101.     CatVAR05_WebCam01      = GetCatalogStr(catalog,506,"WebCam Einstellungen")
  2102.     CatVAR05_WebCam02      = GetCatalogStr(catalog,507,"Speicherpfad")
  2103.     CatVAR05_WebCam03      = GetCatalogStr(catalog,508,"Serienbilder Pfad")
  2104.     CatVAR05_WebCam04      = GetCatalogStr(catalog,509,"Online.html")
  2105.     CatVAR05_WebCam05      = GetCatalogStr(catalog,510,"Offline.html")
  2106.     CatVAR05_Sonstig01     = GetCatalogStr(catalog,511,"Sonstige Einstellungen")
  2107.     CatVAR05_Sonstig02     = GetCatalogStr(catalog,512,"Anzeige f. Thumbs")
  2108.     CatVAR05_Sonstig03     = GetCatalogStr(catalog,513,"Anzeige f. Bilder")
  2109.     CatVAR05_Button01      = GetCatalogStr(catalog,514,"Speichern")
  2110.     CatVAR05_Button02      = GetCatalogStr(catalog,515,"Laden")
  2111. RETURN
  2112.